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struction, Office  of  the  Chief  of  Engineers  (OCE),  under  Project 
W'  4A762720A896,  "Environmental  Quality  for  Construction  and  Operation  of 

Military  Facilities,"  Task  01,  "Environmental  Quality  Management  for 
Military  Facilities,"  Work  Unit  002,  "Development  of  Environmental  Tech- 
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Moni tor. 
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Research  Laboratory  (CERL). 
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Chief  of  the  CERL  Environmental  Division.  COL  J.  E.  Hays  is  Commander 
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SYSTEM  DOCUMENTATION  FOR  COMPUTER-AIDED 
ENVIRONMENTAL  LEGISLATIVE  DATA  SYSTEM 


1 INTRODUCTION 


Background 

The  Computer-Aided  Environmental  Legislative  Data  System  (CELDS) 
was  developed  to  respond  to  the  Army’s  need  for  rapid,  easy  access  to 
environmental  legislation  relevant  to  a specific  project  or  activity. 

In  1972,  CERL  developed  a pilot  system  which  contained  legislation  from 
six  states  and  the  Federal  government.1  Based  on  results  of  the  pilot, 
the  system's  content  and  operation  were  modified,  and  a prototype  CELDS 
containing  data  for  32  states  was  implemented  in  1975.  A user  manual2 
was  published  in  November  1975. 

i 

While  data  were  being'collected  for  the  remaining  18  states,  CERL 
studied  the  feasibility  of  implementing  CELDS  on  a low-cost  mini- 
computer. Results  of  this  study  considerably  enhanced  CELDS,  simplified 
its  updating,  and  significantly  reduced  its  cost. 


Purpose 

The  purpose  of  this  report  is  to  document  the  current  version  of 
CELDS. 


Outline  of  Report 

The  CELDS  documentation  will  include  procedures  for  selecting  and 
updating  legislation  to  be  included  in  the  system  (Chapter  2),  a des- 
cription of  the  data  records  (Chapter  3),  the  formatting  of  legislation 
into  CELDS  data  records  (including  abstracting  and  indexing)  (Chapter 
4),  and  complete  documentation  of  the  software  (Chapter  5). 


R.  D.  Webster,  R.  L.  Welsh,  and  R.  K.  Jain,  Development  of  cm 
Environmental  Technical  Information  System,  Interim  Report 
E-52/ADA009668  (Construction  Engineering  Research  Laboratory 
z [CERL],  March  1975). 

6 R.  L.  Welsh,  User  Manual  for  the  Computer-Aided  Environmental 
Legislative  Data  System,  Technical  Report  E-78/ADA019018  (CERL, 
November  1975).  rse  d<  A \><.j  Ai)*A  Obf  )a (,, 
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Description  of  CELDS  Hardware  and  Software 


CELDS  uses  a PDP11/50  minicomputer,  stores  data  on  one  88-megabyte 
disk,  and  uses  the  UNIX  operating  system.  All  of  the  CELDS  software  is 
written  in  "C",  a high-level  language  supported  by  UNIX.  The  system  ad- 
ministrator should  have  access  to  and  be  familiar  with  the  UNIX  refer- 
ence manual  3 and  the  UNIX  utilities  manual. 4 


Mode  of  Technology  Transfer 

The  technology  transfer  will  be  accomplished  in  accordance  with 
techniques  for  computer-assisted  systems  as  defined  in  appropriate  Army 
regulations. 


K.  Thompson  and  D.  M.  Ritchie,  UNIX  Programmer's  Manual , 

4 6th  ed.  (Bell  Telephone  Laboratories,  Inc.,  May  1975). 

Documents  for  Use  with  the  UNIX  Time-Sharing  System  (Western 
Electric  Company,  1975). 


2 DATA  COLLECTION  PROCEDURES 
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Identification 

Legislation  included  in  CELDS  must  contain  objective  criteria  per- 
taining to  the  environment.  The  following  guidelines  should  be  applied 
to  help  identify  relevant  standards: 

1.  Laws  and  regulations  containing  quantifiable  or  objective  stan- 
dards should  be  entered  (for  example,  those  which  numerically  define  the 
maximum  permissible  amount  of  a substance  which  can  be  released  to  air 
or  water,  or  those  which  name  protected  species  or  list  specific  re- 
quirements for  the  location  of  a landfill  site).  "Enabling  legis- 
lation," which  creates  or  authorizes  a specific  agency  to  promulgate  and 
administer  regulations,  is  helpful  for  understanding  the  purpose  of 
those  regulations,  but  merits  few  entries  because  it  does  not  express 
concrete,  measurable  standards.  An  exception  is  enabling  legislation 
which  also  establishes  interim  standards. 


2.  Legislation  requiring  permits  or  reports  for  an  activity  should 
be  entered. 

3.  Laws  and  regulations  must  be  orginated  and  administered  by  a 
nationwide  or  statewide  agency,  i.e.,  city  and  county  ordinances,  are 
not  included. 

4.  Only  enacted  laws  or  regulations  are  included. 

5.  Laws  dealing  only  with  violations  of  regulations  and  the  penal- 
ties for  noncompliance  are  excluded. 


Collection 

Collection  of  legislative  data  is  begun  by  searching  administrative 
codes  and/or  statutes  available  in  a law  library.  Administrative  codes 
with  complete  up-to-date  coverage  will  provide  regulations  from  all 
agencies  and  are  the  preferred  source  materials  for  CELDS  data  records. 
When  a code  is  available,  the  index  should  be  searched  for  regulations 
pertaining  to  the  following  areas: 


Air  pollution 


1.  Incineration 

2.  Industrial  plants 

3.  Refineries 

4.  Ambient  air  quality  standards 

5.  Air  pollution  standards 
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Drinking  water  quality  standards 

Endangered  species 

1. 

Endangered  and  protected  species 

2. 

Pests 

Erosion 

1. 

Sedimentation/erosion  control 

Land  Use 

1. 

Management  of  coastal  wetlands 

2. 

Fencing 

3. 

Forest  cutting 

4. 

Dredging 

5. 

Landfi 1 1 s 

Noise 

1. 

Motor  vehicles 

2. 

Ai  rcraft 

3. 

Exclude  regulations  designed  to 
protect  employees  at  work. 

Pesticides  and  economic  poisons 

1. 

Restricted  use  materials 

2. 

Disposal  of  wastes 

3. 

Storage/disposal  of  containers 

4. 

Control  of  pests 

Radiation 

1. 

Emission  limitations 

2. 

Exposure  standards 

3. 

Waste  disposal  procedures 

Sol  id  waste 

1. 

Disposal  of  solid  and  hazardous 
wastes 

2. 

Landfi 1 1 s 

3. 

Recycling 

Transportation  of  explosives 

1. 

Storage  and  transportation  of 
explosive  and  hazardous  materials 

Water  pollution 

1. 

Liquid  industrial  waste  disposal 

2. 

Protection  of  coastal  waters 

3. 

Oil  spill  cleanup 

4. 

Standards  for  lakes  and  streams 

Not  all  states  have  comprehensive 

administrative  codes,  nor  do  they 

update  them  frequently.  In  these 

cases 

, the  state  statutes  are  searched 

in  the  areas  listed  above.  The  statutes  occasionally  include  some  laws 
which  meet  the  CELDS  criteria;  however,  they  are  primarily  useful  for 
providing  the  "enabling  legislation"  which  gives  the  names  of  specific 
agencies  and  the  activities  that  each  is  empowered  to  regulate.  The  ap- 
propriate agencies  should  then  be  contacted  for  copies  of  the  regu- 
lations they  administer. 
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Agency  addresses  can  be  obtained  from  a variety  of  sources:  state 
blue  books,  telephone  books,  and  the  Directory  of  Governmental  Agrnci 'as 
Safeguarding  Consumer  and  Environment . 5 Agency  correspondence  is  filed, 
since  it  often  provides  corrected  or  more  specific  addresses,  names  of 
persons  to  contact,  and  information  about  relevant  or  upcoming  regu- 
lations. If  an  agency  indicates  that  certain  types  of  regulations  are 
nonexistent,  this  fact  should  be  noted  and  filed. 

An  alternate  source  of  air  quality,  water  quality,  and  solid  waste 
disposal  agency  addresses  and  regulations  is  the  Environmental  Re- 
porter.  6 However,  direct  correspondence  with  agencies  often  produces 
more  current  materials  and  more  comprehensive  coverage. 


Update 

Federal 

Updating  Federal  data  records  that  are  already  in  CELDS  involves 
locating  changes  in,  additions  to,  or  deletions  from  the  abstracted  leg- 
islation. Both  substantive  and  insignificant  changes  to  the  scope  of 
CELDS  should  be  considered.  Because  the  effective  date  on  a data  record 
indicates  the  last  noted  revision  in  the  legislative  contents,  this  date 
must  be  changed  to  match  that  of  the  most  recent  revision,  whether  the 
revision  is  significant  to  the  data  record  contents  or  not.  This  is 
done  to  avoid  additional  rechecking  of  a revision  that  has  already  been 
noted.  In  addition,  transfers  of  administrative  agencies,  revisions  in 
text,  and  changes  in  tables  must  be  noted.  Such  changes  may  affect  both 
the  bibliographic  and  legislative  reference  and  the  attribute  and  key- 
word indexing. 


To  locate  pertinent  revisions,  additions,  or  deletions  in  Federal 
regulations,  the  following  sources  may  be  used: 

1.  An  up-to-date  master  list  of  Code  of  Federal  Regulations  (CFR) 
sections  included  in  the  Federal  data  records  should  be  maintained. 

This  list  will  direct  the  abstracter  to  CFR  sections  that  are  already 
abstracted  and  to  the  accession  number  of  the  data  record  in  which  the 
regulation  appears. 

2.  The  Federal  Register  (issued  Monday  through  Friday)  contains 
material  affecting  existing  Federal  regulations  and  also  contains  newly 
adopted  regulations.  Changes  in  regulations  which  are  already  included 
in  the  data  base  may  be  found  by  comparing  the  master  list  (mentioned 


^ Directory  of  Governmental  Agencies  Safeguarding  Consumer  and 
Environment  (1974), 

J Environment  Reporter (Bureau  of  National  Affairs). 
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above)  with  the  "Cumulative  List  of  CFR  Parts  Affected"  which  appears  in 
each  issue.  An  "affected  part"  is  a section  which  has  been  revised,  de- 
leted, or  added.  New  regulations,  which  must  also  be  examined  for  in- 
clusions in  CELDS,  may  be  discovered  (1)  by  checking  the  cumulative  list 
for  section  numbers  that  do  not  appear  on  the  CELDS  master  list  but  are 
successive  to  numbers  which  do  appear,  and  (2)  by  consulting  the  con- 
tents listing  of  each  issue. 

3.  Changes  cited  in  the  Federal  Register  occasionally  refer  to  a 
sentence  or  paragraph  in  a previously  published  regulation.  The  full 
text  of  the  regulation  must  then  be  found  to  determine  what  changes  have 
been  made.  This  may  involve  searching  through  previous  issues  of  the 

Federal  Register  or  finding  the  regulation  in  the  Code  of  Federal  Regu- 
lations. 


Since  the  Federal  Register  is  a daily  publication,  updating  CELDS 
coverage  of  Federal  regulations  can  be  a continuous  process,  thus  insur- 
ing optimum  currentness.  However,  updating  Federal  statutes  is  a less 
continuous  task  because  of  the  nature  of  the  sources  used.  The  primary 
source  is  the  United  States  Code  Annotated  (USCA).  These  volumes  are 
kept  current  through  distribution  of  cumulative  annual  pocket  parts  and 
monthly  pamphlets  that  contain  new  laws  and  judicial  constructions. 

Each  volume,  pocket  part,  and  pamphlet  contains  laws,  executive  orders, 
prod amations,  and  an  index  to  the  publication's  contents.  Amendments 
to  statutes  already  in  CELDS  can  be  located  in  the  cited  sections  of 
current  pocket  parts  or  pamphlets.  New  laws  may  be  found  by  using  the 
indexes.  The  United  States  Code  (USC)  is  the  official  publication  of 
enacted  laws,  but  is  updated  less  frequently  than  the  USCA  and  therefore 
is  not  useful  to  this  project. 

States 

Updating  of  state  records  follows  the  general  procedures  estab- 
lished for  Federal  regulations.  The  original  sources,  such  as  adminis- 
trative codes  or  state  statutes,  are  compared  to  the  existing  abstracts 
for  changes  in  effective  date,  content,  and  administrative  agency  and 
address. 

The  individual  agencies  are  requested  by  letter  to  provide  copies 
of  current  regulations  and  asked  to  routinely  send  future  changes  and 
additions.  Included  with  the  request  is  a self-addressed  prepaid  card 
on  which  the  agency  can  indicate  whether  or  not  regulations  are  being 
sent  and  whether  a mailing  list  is  maintained.  Agencies  which  do  not 
have  mailing  lists  are  contacted  about  new  or  revised  regulations  at  6- 
month  intervals  by  postcard.  Agencies  which  do  not  respond  to  the  ini- 
tial letter  within  3 months  are  contacted  again.  As  regulations  are 
received  from  the  agencies,  the  existing  abstracts  are  revised,  new  laws 
are  abstracted,  and  all  the  information  is  entered  into  the  data  base. 
Legislation  pertaining  to  new  CELDS  subject  areas  is  found  in  statutes 
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and  code  books;  names  of  possible  relevant  agencies  to  be  contacted  are 
provided  in  state  blue  books  or  The  National  Directory  of  State  Agen- 
cies. 7 

Checking  code  books  and  statute  supplements  against  the  legislative 
reference  lists  reveals  any  amendments  to  the  legislation.  The  table  of 
contents  of  weekly  Environment  Reporter  supplements  is  checked  for  ap- 
plicable regulations.  Additions,  changes,  and  deletions  are  checked 
continuously  by  examining  supplements  as  they  become  available,  by 
checking  supplements  to  the  Environment  Reporter,  and  by  contacting 
state  agencies  periodically. 


The  National  Directory  of  State  Agencies  (Information  Resources 
Press,  1974). 
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3 DATA  ENTRY  PROCEDURES 


Scope  of  Data  Records 


A single  agency  regulation  generally  covers  many  subdivisions  of  a 
particular  interest  area.  For  example,  the  Alabama  Air  Pollution  Con- 
trol Commission's  Rules  and  Regulations  booklet  contains  general  sec- 
tions on  provisions  for  permits,  variances,  compliance  schedules,  sam- 
pling, records,  and  reporting.  In  addition,  it  contains  specific 
sections  on  air  pollution  emergencies,  open  burning  and  incineration, 
and  control  of  various  emissions  from  many  emission  sources,  such  as 
kraft  pulp  mills,  general  process  industries,  nitric  acid  manufacturing 
plants,  and  motor  vehicles. 

The  CELDS  abstracter  must  rewrite  this  material  in  concise  legal  or 
environmental  standards  statements  for  entry  into  the  data  base  on  indi- 
vidual CELDS  data  records.  Each  data  record  should  provide  information 
on  a specific  subdivision  of  required  or  prohibited  actions,  and  should 
be  retrievable  by  a CELDS  user. 


Description  of  Data 

Each  CELDS  record  consists  of  12  data  fields: 

1.  Accession  number 

2.  Title 

3.  Effective  date 

4.  Legislative  reference 

5.  Major  environmental  category 

6.  Geographical /political  scope 

7.  Administrative  agency 

8.  Bibliographic  reference 

9.  Abstract 

1U.  Table  of  standards 

11.  Environmental  attributes 

12.  Keywords 

Accession  Number 

An  accession  number  assigned  to  each  data  record  indicates  the 
order  in  which  it  has  been  collected  and  entered  into  the  system.  The 
accession  number  is  useful  for  referring  to  specific  laws  in  the  CELDS 
retrieval  program.  If  a data  record  is  removed  from  the  system  because 
it  has  been  repealed  or  amended,  its  permanent  accession  number  is  not 
reassigned  to  a new  entry,  but  instead  is  added  to  a master  list  of  de- 
leted accession  numbers.  Accession  numbers  are  entered  as  digits  with- 
out any  punctuation. 
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Each  data  record  receives  a brief  but  comprehensive  title  that  in- 
dicates the  abstract's  content-  This  title  helps  the  user  determine  the 
relevance  of  the  entry  to  his/her  specific  search.  Therefore,  it  should 
reflect  the  scope  and  emphasis  of  the  abstract,  and  need  not  correspond 
to  the  heading  of  the  source  material.  For  example,  titles  for  regu- 
lations on  emission  standards  from  a manufacturing  process  should  in- 
clude the  name  of  the  process  and  the  type  of  emission,  e.g.,  SULFUR 
OXIDE  EMISSIONS  FROM  KRAFT  PULP  MILLS.  Each  title  is  followed  by  a 
period. 

Effective  Date 

Most  laws  and  regulations  are  printed  with  a date  or  series  of 
dates  that  indicate  when  the  document  or  section  was  enacted,  when  its 
contents  became  law,  and  when  any  subsequent  revisions  or  amendments 
were  made.  Similarly,  the  date  assigned  to  a CELDS  data  record  reflects 
the  currentness  of  the  laws  from  which  the  abstract  is  taken,  and  is 
generally  the  most  recent  date  found  in  the  source  material.  For  exam- 
ple, the  Water  Pollution  Control  Act  of  1972  which  was  amended 
December  28,  1973  and  January  2,  1974,  receives  the  date  1-2-74.  How- 
ever, there  is  one  exception.  When  a law  which  has  already  been  enacted 
becomes  effective  significantly  later  than  the  enactment  date,  the 
enactment  date  is  used  in  the  date  field  and  the  effective  date  is  cited 
in  the  abstract  field.  "Significantly  later"  is  more  than  6 months. 

For  example,  a regulation  enacted  on  November  12,  1974  which  will  become 
effective  on  July  1,  1975  should  have  the  date  11-12-74  assigned  to 
field  3;  in  the  abstract  (field  9),  the  following  should  be  noted:  EF- 
FECTIVE 7-1-75,  THE  FOLLOWING  STANDARDS  MUST  BE  MET...). 

Accuracy  is  important  when  assigning  a date  to  each  data  record; 
the  CELDS  user  must  know  when  a regulation  or  amendment  took  effect  and 
how  current  the  legislation  on  a particular  subject  is.  Moreover,  this 
information  helps  the  abstracter  keep  the  data  base  current,  since  the 
legal  sources  can  later  be  scanned  for  updating  in  terms  of  a predefined 
cutoff  date.  When  no  date  appears  in  the  source  material,  the  appropri- 
ate government  branch  should  be  contacted.  Dates  are  entered  numer- 
ically, without  terminal  punctuation,  specifically  in  the  order  of 
month- day -year.  When  a day  is  not  given  in  the  original,  the  entry  is 
numerical  for  month-year. 

Legislative  Reference 

The  legislative  reference  is  the  official  source  of  a law  or  regu- 
lation which  tells  the  user  where  to  locate  the  full  text  of  an  abstract 
for  legal  citation  purposes.  Data  record  references  do  not  follow 
strict  legal  citation  format;  instead,  they  use  the  publication  title 
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followed  by  a breakdown  of  as  many  subdivision  numbers  and  titles  as  are 
necessary  to  enable  the  user  to  locate  the  specific  abstracted  sections. 


Uniformity  of  citation  format  is  virtually  impossible  to  maintain 
throughout  the  records  of  a given  state,  or  among  several  states, 
because  different  government  publishers  and  agencies  tend  to  develop 
their  own  systems  of  subdivision  breakdown.  However,  for  all  references 
to  a single  publication  or  to  the  publications  of  a single  agency,  cita- 
tion format  and  punctuation  should  be  consistent,  conforming  to  the  fol- 
lowing general  pattern:  publication  title;  chapter  number  and  title; 
part  number  and  title;  subpart  number  and  title;  and  complete  section 
number  (or  numbers).  Titles  are  preceded  by  a colon  and  followed  by  a 
semicolon;  the  final  section  number  is  preceded  by  a comma  and  followed 
by  a period.  A typical  example  is: 

California  Administrative  Code;  Title  17:  Public 
Health;  Part  III:  Air  Resources;  Subchapter  I: 

Air  Basins  and  Air  Quality  Standards,  Section  70101. 

It  is  often  necessary  to  scan  the  text  of  a regulation  to  determine  how 
it  is  set  up  and  what  terms  it  uses  to  refer  to  various  subdivisions. 

Use  of  the  regulation's  own  terminology  in  the  legislative  reference 
will  prevent  confusion  to  the  user  who  consults  the  original  text. 

Major  Environmental  Category 


Assigning  major  environmental  categories  is  the  first  step  in  in- 
dexing a data  record.  There  are  ten  major  environmental  categories  in 
the  CELDS  system: 


Ai r Qual  ity 
Earth  Science 
Ecology 

Health  Science 
Land  Use 


Noi  se 
Sociol ogy 
Solid  Waste 
Transportation 
Water  Quality 


Most  data  records  are  assigned  to  the  one  category  that  represents  the 
aspect  of  the  environment  most  directly  affected  by  the  law  or  regu- 
lation; however,  regulations  may  be  assigned  to  as  many  environmental 
categories  as  are  applicable.  For  example,  regulations  on  the  use  of 
pesticides  and  radioactive  materials  often  get  assigned  to  HEALTH  SCI- 
ENCE, AIR  QUALITY,  and  WATER  QUALITY. 

Geographical/Folitical  Scope 


This  field  indicates  a regulation's  political  origin  and  is  always 
a state  name,  the  Federal  government,  or  the  District  of  Columbia.  The 
states  are  entered  by  their  two-character  postal  abbreviations.  The 
Federal  government  is  "US,"  the  District  of  Columbia  is  "DC,"  and  Puerto 
Rico  is  "PR." 
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Administrative  Agency 


This  field  contains  the  official  name  and  address  of  the  agency  re- 
sponsible for  administering  a specific  law  or  regulation.  If  the  source 
of  the  data  record  is  U.S.  or  state  legislation  rather  than  an  agency  reg- 
ulation, the  information  recorded  in  this  field  should  be  the  name  and 
address  of  the  department  or  agency  designated  in  that  particular  law  to 
oversee  enforcement  of  its  provisions. 

Bibliographic  Reference 

The  bibliographic  reference  indicates  the  printed  source  in  which  a 
law  or  regulation  was  located  by  the  abstracter,  and  from  which  photo- 
copies were  taken  for  the  CELDS  manual  files.  It  is  preferable  to  take 
data  from  the  original  legislative  source,  because  it  is  more  reliable 
than  unofficial  reprints.  In  these  cases,  field  8 should  read  "SAME  AS 
LEGISLATIVE  REFERENCE."  If  an  agency  has  sent  regulations  that  are  not 
available  in  statutes  or  codes,  the  bibliographic  reference  should  read: 
"AGENCY  (or  DEPARTMENT)  PUBLIC  INFORMATION  PAMPHLET." 

For  the  areas  of  air  and  water  quality,  solid  waste,  land  use,  and 
noise,  regulations  received  from  an  agency  should  be  checked  for  accu- 
racy and  currentness  against  the  contents  of  the  Environment  Reporter . 

If  rules  and  regulations  in  the  Environment  Reporter  are  identical  and 
up  to  date,  they  should  be  cited  as  the  bibliographic  reference  instead 
of  the  agency  copies. 

Use  of  the  Environment  Reporter  is  an  exception  to  the  rule  stated 
in  the  previous  paragraph,  because  it  is  available  commercially  and 
through  libraries;  it  is  therefore  a more  convenient  source  for  checking 
a text  than  agency  reprints  which  are  not  readily  available.  Where  the 
Environment  Reporter  is  cited,  use  the  title,  volume  name,  and  section 
number;  the  parts  of  the  reference  should  be  separated  by  commas;  for 
example,  ENVIRONMENT  REPORTER,  STATE  AIR  LAWS,  361.  Page  numbers  should 
not  be  included  because  service  is  continuously  updated  and  the  pagi- 
nation is  therefore  temporary.  All  bibliographic  references  end  with  a 
period. 

Abstract 

The  abstract  is  a concise,  informative  presentation  of  pertinent 
details  in  a law  or  regulation.  Its  opening  sentence  should  repeat  or 
rephrase  the  title  (field  2).  Abstracts  must  be  written  in  a straight- 
forward narrative  style,  eliminating  verbiage  and  legal  jargon;  however, 
coverage  of  technical  specifications  should  be  thorough  and  precise. 

Most  source  documents  include  a section  of  terminology  definitions. 

Since  it  is  assumed  that  CELDS  users  are  familiar  with  standard  sci- 
entific terms  and  technical  terms,  these  are  not  generally  included  in 
the  data  base.  If  a regulation  uses  a term  in  an  uncommon  or  specialized 
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context  and  a definition  is  required  for  clarification,  it  should  be 
incorporated  into  the  abstract  text.  When  a chart  or  table  is  used 
to  present  data,  the  abstract  should  describe  its  contents  briefly 
(subject  and  scope)  without  detailing  the  specifics;  these  will  appear 
in  tabular  format  in  field  10. 

Individual  states  regulate  different  areas  of  the  environment  in 
varying  depths  and  organize  their  coverage  in  different  ways.  The  ab- 
stracter must  determine  which  sections  of  a document  are  relevant  to 
CELDS,  and  how  to  present  those  sections  in  an  organized,  concise,  and 
retrievable  form.  Each  data  record  should  be  a self-contained  unit  con- 
cerning one  or  more  related  aspects  of  a subject.  If  the  source  docu- 
ment is  well  organized,  CELDS  coverage  may  simply  follow  the  subdivision 
levels  in  the  regulation,  with  one  data  record  for  each  division  or 
group  of  subdivisions.  For  a more  complex  or  poorly  organized  document, 
however,  it  may  be  necessary  to  reorganize  the  grouping  of  sections  for 
entry  into  data  records.  An  air  quality  regulation  may  present  rules 
la-e  for  air  contaminant  emissions  from  existing  sources  of  type  A to  E, 
followed  by  rules  2a-e  for  emissions  from  new  sources  of  type  A to  E. 

If  the  limits  specified  for  new  and  existing  sources  of  type  A are  iden- 
tical or  vary  in  only  some  specifics,  rules  la  and  2a  should  be  combined 
in  a single  data  record.  Similarly,  radiation  standards  often  list  ex- 
posure limits  for  "individuals'1  in  one  section  and  for  "minors"  several 
sections  later.  It  is  not  only  logical  to  abstract  these  rules  together 
in  a single  data  record,  but  also  potentially  misleading  not  to.  A 
CELDS  user  searching  index  terms  for  radiation  regulations  will  find 
terms  differentiating  between  maximum  permissible  dose  and  concentration 
levels,  radioactive  wastes,  and  radiation  hazards,  but  no  terms  relating 
to  age  limits.  A user  who  retrieves  a data  record  on  exposure  limits 
for  "individuals"  may  not  be  aware  that  he  should  search  further  for 
similar  rules  on  "minors";  therefore,  the  two  rules  should  be  in  the 
same  data  record.  This  is  also  true  for  regulations  concerning  "old" 
and  "new"  sources  of  air  pollution  and  for  many  other  sub-topics. 

A section  may  sometimes  need  to  be  repeated  in  more  than  one  data 
record  (for  example,  a statement  of  applicability  or  a definition  of  ex- 
ceptions which  applies  to  several  data  records).  In  all  cases,  com- 
binations and  repetitions  of  sections  will  be  reflected  in  the  legis- 
lative reference  (field  4).  When  reviewing  a source  document  to 
determine  the  breakdown  for  data  records,  the  abstracter  should  remember 
that  sections  may  be  combined  only  if  the  resulting  data  records  can  be 
indexed  distinctively  for  retrieval  and  will  not  require  the  user  to 
read  through  lengths  of  material  to  find  a specific  section  of  interest. 

Basic  requirements  for  permits,  reports,  and  tests  should  be  in- 
cluded in  the  abstract,  but  without  administrative  details  or  test  pro- 
cedures. Abstracts  may  also  include  parenthetical  or  explanatory  notes 
by  the  abstracter  when  a source  document  contains  an  obvious  error  or  is 
confusing.  References  to  other  documents  contained  in  the  CELDS  data 
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base  should  be  avoided;  however,  when  such  references  are  necessary,  a 
citation  is  given  to  the  appropriate  CELDS  accession  number. 

Table  of  Standards 

This  field  is  used  when  the  best  way  to  present  the  content  of  a 
regulation  or  portion  of  a regulation  is  in  tabular  format  (for  example, 
rules  on  maximum  permissible  levels  of  chemical  substances  in  the  air  or 
water).  A table  must  use  no  more  than  60  spaces  across  the  page,  and 
must  have  a table  number,  descriptive  title,  and  column  headings  which 
include  the  relevant  units  of  measure.  Tables  are  numbered  con- 
secutively with  each  data  record.  If  no  table  is  necessary  for  a partic- 
ular accession  number,  the  word  "NONE"  is  entered  in  this  field. 

Environmental  Attributes 

Environmental  attributes  (EA's)  are  index  terms  developed  by  CERL 
which  are  arranged  by  areas  under  corresponding  major  environmental  cat- 
egories. (Appendix  A provides  the  list  of  acceptable  attributes.)  The 
list  is  arranged  hierarchically  in  three  levels:  (1)  parametric  terms 
form  the  broadest  level;  (2)  subparametric  names  list  subdivisions  of 
parametric  terms;  and  (3)  at  the  most  specific  level,  detailed  attri- 
butes list  individual  chemical  compounds,  types  of  plants  and  animals, 
and  other  environmental  aspects.  Terms  from  any  level  of  the  hierarchy 
may  be  assigned  to  a data  record,  depending  on  the  level  of  specificity 
of  the  document  being  indexed.  As  many  terms  as  necessary  should  be 
used  to  describe  the  content  of  the  data  record  adequately;  however,  no 
EA  term  may  be  assigned  unless  the  corresponding  Major  Environmental 
Category  (MEC)  was  entered  in  field  5.  It  should  be  noted  that  an  at- 
tribute may  be  expressed  by  several  terms  within  one  MEC.  For  example, 
RADIOACTIVE  and  RADIOACTIVE  EMISSIONS  both  appear  in  the  EA  list  under 
the  MEC  AIR  QUALITY.  Similarly,  different  MEC's  may  use  different  terms 
for  related  subjects.  The  EA's  RADIATIONS  and  OTHER  RADIATIONS  appear 
under  the  MEC  HEALTH  SCIENCE;  the  EA's  RADIOACTIVE  and  RADIOACTIVITY 
appear  under  MEC  WATER  QUALITY.  For  a data  record  on  emissions  of  ra- 
dioactive wastes  to  air  and  water,  all  of  these  terms  should  be  listed 
in  field  11.  Particular  attention  should  be  paid  to  attributes  listed 
beneath  the  parametric  name  CONTROVERSIAL  ATTRIBUTES,  which  appears  at 
the  end  of  each  major  environmental  category  section  of  the  EA  list. 
These  are  frequently  variations  of  general  terms  and  are  of  particular 
interest  to  users. 

When  EA's  are  assigned,  regulations  that  are  similar  from  state  to 
state  should  be  indexed  consistently  so  that  users  searching  the  system 
can  easily  make  a transition  between  states  or  from  the  Federal  govern- 
ment to  a state.  EA's  should  be  entered  one  to  a line,  without  punc- 
tuation, and  should  be  uniform.  If  no  EA  pertains  to  a data  record,  the 
word  NONE  is  entered  in  this  field. 
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Because  an  appropriate  attribute  does  not  always  exist  for  a par- 
ticular data  record,  a thesaurus  of  keywords  has  been  developed  as  a 
supplementary  index  (Appendix  B provides  a listing  of  acceptable  key- 
words). It  differs  significantly  from  the  list  of  environmental  attri- 
butes because  of  the  inclusion  of  process  names  (e.g.,  MANUFACTURING) 
and  procedural  terms  (e.g.,  PERMITS)  in  addition  to  names  of  the  chem- 
ical compounds  and  environmental  variables  affected  by  the  processes; 
this  allows  an  added  degree  of  document  separation  and  content  identi- 
fication. This  list  is  arranged  hierarchically  by  major  environmental 
category. 

To  assign  keywords  to  a CELDS  document,  the  major  environmental 
categories  under  which  the  document  belongs  must  be  determined  and  the 
keyword  list  consulted  for  these  specific  categories.  It  should  be 
noted  that  the  keyword  thesaurus  is  dynamic,  i.e.,  it  may  grow  or  be  re- 
vised. It  is  conceivable  that  new  legislation  regulating  sectors  of  the 
environment  that  were  not  considered  previously  may  not  fit  into  the  ex- 
isting structure  of  keywords  (or  major  environmental  categories);  thus, 
they  cannot  be  accurately  indexed  with  the  existing  terms,  and  creation 
of  new  keywords  may  be  necessary.  When  this  happens,  it  is  also  neces- 
sary to  determine  whether  any  of  the  past  laws  already  in  the  data  base 
should  have  this  keyword  added  to  their  indexing  terms. 
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4 COMPUTER  OPERATIONS 


Uata_  Injiut 

When  legislation  has  been  collected  and  the  data  records  estab- 
lished according  to  the  outlined  procedures,  the  data  is  input  by  using 
the  text  editor  "ed."  This  program  is  part  of  the  UNIX  operating  system 
on  the  computer  rather  than  the  CELOS  software.  (For  questions  regard- 
ing the  use  of  "ed,"  the  UNIX  Uvogrcomar’?,  Manual  should  be  consulted.) 

A file  should  be  created  and  laws  typed  into  this  file  in  sequential 
order  by  accession  number.  Each  data  field  in  the  file  should  begin 
with  a "#,"  followed  by  a five-digit  accession  number  and  a three-digit 
field  number.  See  the  Detailed  File  Description  section  in  Chapter  5 
for  a more  in-depth  discussion  of  this. 

The  accession  number,  field  number,  and  stop  code  should  each  be 
ri  ght-justified  and  zero-filled  in  the  columns  indicated.  The  stop  code 
is  00  if  it  is  not  the  last  line  of  a field,  01  if  it  is  the  last  line 
of  a field  (but  not  the  last  line  of  the  accession  number),  and  02  if  it 
is  the  last  line  of  the  accession  number.  For  example,  the  last  line  of 
field  7 for  accession  number  135  begins  with  a 10-digit  code  of 
"0013500701." 

When  the  size  of  the  file  approaches  65,000  characters,  no  more 
data  should  be  input  into  it;  however,  the  last  line  of  the  file  should 
end  with  an  accession  number,  i.e.,  data  fields  for  a single  accession 
number  should  not  be  split  across  file  boundaries.  At  this  point,  a re- 
indexing program  should  be  executed  for  this  file  by  typing  "repair 
<filename>".  "Repair"  will  check  field  numbers  and  print  out  errors; 
flagged  errors  should  be  corrected  with  "ed."  When  a file  checks  out, 
it  should  be  moved  to  the/cerl /cel ds  directory  and  its  name  changed  to 
"laws.xxxx,"  where  "xxxx"  is  the  accession  number  of  the  first  law  in 
the  file.  Data  input  can  now  be  continued  by  creating  another  new  file 
and  following  the  same  procedures. 

Data  Base  Creation 


The  "laws"  files  that  are  created  as  described  above  comprise  the 
CELDS  data  files  and  are  read  to  create  the  inverted  search  files  which 
make  rapid  retrievals  possible.  The  program  which  creates  the  search 
files  is  "push".  Thus,  to  create  a new  data  base,  it  is  necessary  to 
change  the  working  directory  to  "/cerl/cel ds"  and  execute  "push".  How- 
ever, since  this  is  a relatively  lengthy  process,  it  is  usually  run  in 
the  background  mode,  and  the  output  is  diverted  to  a file  called 
"push. out".  This  is  accomplished  by  typing  "push>push.out&".  Note  that 
"push"  does  not  modify  any  of  the  "laws"  files  but  does  read  them  to 
create  the  search  files.  "Push"  must  be  run  to  include  new  laws  in  the 
data  base  or  to  change  the  search  terms  for  any  laws  that  have  had 
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searchable  fields  modified.  Merely  editing  the  contents  of  a "laws" 
file  will  change  the  output  that  is  produced  when  a particular  law  is 
printed;  however,  changing  a "laws"  file  does  not  change  the  search 
files  until  "push"  is  executed. 
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5 DOCUMENTATION  OF  CELDS  PROGRAM 


CELDS  Algorithm 

CELDS  is  set  up  with  an  inverted  index.  A group  of  search  files  in 
the  inverted  index  indicates  each  valid  search  term  and  a list  of  acces- 
sion numbers  which  represent  "hits"  for  those  terms.  Since  the  length 
of  this  list  of  accession  numbers  varies,  two  files  are  involved;  one 
contains  the  search  term  and  an  address  in  the  second  file,  and  the 
other  contains  the  list  of  accession  numbers,  beginning  at  the  address 
specified  for  that  search  term  in  the  first  file.  These  two  files  are 
all  that  are  needed  to  perform  searches;  when  a search  is  requested, 
these  files  are  consulted  and  the  appropriate  list  of  accession  numbers 
is  returned  to  the  calling  program. 

The  only  remaining  important  file  is  a table  of  contents  file, 
which  contains  an  entry  for  every  accession  number  in  the  system.  The 
entry  indicates  the  proper  file  and  the  starting  address  for  every 
field.  This  file  is  consulted  only  when  it  is  necessary  to  get  actual 
text  from  a "laws"  file. 

Thus,  the  procedure  is  to  use  only  the  inverted  search  files  until 
the  desired  law  set  is  established.  The  table  of  contents  file  is  then 
used  for  each  of  the  accession  numbers  in  the  list  to  locate  the  desired 
data  fields. 

For  a rapid  identi fication  of  search  terms,  a "hashing"  scheme  is 
used  to  convert  textual  search  terms  to  a number.  Search  terms  may  con- 
tain as  many  as  62  characters  (although  this  is  an  arbitrary  limit).  A 
term  is  hashed  by  breaking  it  into  pairs  and  adding  the  pairs  as  inteaer 
numbers.  For  example,  "nitrogen  dioxide"  would  be  hashed  as 
"ni/tr/og/en  d/io/xi/de";  the  bit  representations  for  each  of  the  pairs 
would  be  treated  as  if  they  were  integers  and  added.  This  would  give  o. 
large  number  for  the  value  of  "nitrogen  dioxide."  To  fit  these  values 
into  a table  of  fixed  size,  the  value  is  divided  by  4001  (this  is  cur- 
rently being  used  as  max_hash_num) , and  the  remainder  is  used  to  desig- 
nate the  "slot"  or  "hash  value"  of  this  term.  Since  the  remainder  may 
be  any  number  from  1 to  4000,  there  are  4000  available  slots  in  the  hash 
table.  (Remainder  "0"  is  not  used.)  However,  max_has_num  should  be 
picked  so  that  the  hash  table  is  never  more  than  approximately  two- 
thirds  full;  this  will  insure  efficient  operations.  If  a "collision" 
occurs--that  is,  two  different  terms  happen  to  hash  to  the  same  value-- 
the  next  empty  slot  is  used  for  the  second  one.  This  is  why  the  search 
term  itself  is  also  a part  of  the  "val"  files  (see  pp  24,25).  The  hash  number 
is  checked;  then  terms  are  compared  character  by  character  to  guarantee 
that  the  term  sought  and  the  term  found  are  the  same. 
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The  files  used  in  CELDS  consist  of  "laws.toc"  file,  "isol"  files, 
alpha"  files,  "val"  files,  and  "list"  files. 
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Laws 

files  contain 

i the  data  used  in 

CELDS  and  are  selected  to  be 

less  than 

b5,536  characters  (i.e.,  215) 

length.  The 

file  name  is 

“laws."  concatenated  with  the  accession 

number  of  the 

first  law  in  the 

file;  e.g, 

.,  "laws. 131" 

would  be  a file  beginning  with 

accession  number 

131.  The 

current  laws 

files  are: 

laws.l 

laws. 905 

laws. 1547 

laws. 21 72 

laws  2612 

laws .97 

1 aws . 93 1 

laws. 1573 

laws. 2185 

laws. 2616 

laws. 131 

laws. 960 

1 aws . 1596 

laws. 21 99 

laws. 2632 

laws. 165 

1 aws . 986 

laws .1616 

laws. 2222 

laws. 2645 

laws. 195 

laws. 1020 

laws. 1632 

laws. 2238 

laws. 26 50 

laws. 224 

laws. 104 3 

laws. 1650 

laws. 2259 

laws. 2663 

laws. 242 

laws. 1074 

laws. 1666 

laws. 2275 

laws .2666 

laws. 257 

1 aws . 1095 

laws. 1680 

laws. 2295 

laws. 2677 

1 aws . 282 

laws. 1120 

laws. 1700 

laws. 2306 

laws .2692 

laws .309 

laws. 1142 

laws. 1720 

laws. 2320 

law's.  27  08 

laws. 341 

laws. 1165 

laws. 1743 

laws. 2332 

laws. 2716 

laws. 373 

laws. 1193 

laws. 1772 

1 aws .2352 

laws. 2731 

laws .410 

laws. 1220 

laws. 1792 

laws. 2370 

laws. 2738 

laws. 443 

laws. 1245 

1 aws . 1809 

laws. 2381 

laws. 2747 

laws .481 

laws. 1268 

laws. 1825 

laws. 2393 

laws. 2760 

laws. 516 

laws. 1294 

1 aws . 1843 

laws. 2413 

laws. 2770 

laws. 545 

laws. 1314 

laws. 1861 

laws. 2424 

laws. 2779 

laws. 579 

laws. 1327 

laws. 1884 

laws. 244 5 

laws. 2793 

laws .612 

laws. 1339 

laws. 1896 

laws. 2452 

laws. 2799 

laws. 643 

laws. 1360 

laws. 1916 

laws. 2469 

laws. 281 9 

laws .679 

laws. 1376 

laws. 193 7 

1 aws . 2482 

laws. 2831 

laws. 701 

laws. 1398 

laws. 1938 

laws. 2495 

1 aws . 284  5 

laws. 716 

laws. 1422 

laws. 1954 

laws. 2520 

1 aws . 2860 

laws. 737 

laws. 1440 

laws. 1967 

laws. 2536 

laws. 288 3 

laws. 766 

laws. 1462 

laws. 1986 

laws .2553 

1 aws . 2904 

laws. 792 

laws . 1479 

laws. 2109 

laws. 2560 

laws. 292 6 

laws. 823 

laws. 1499 

laws. 2122 

laws .2573 

laws. 856 

laws. 1521 

laws. 2141 

1 aws . 2587 

laws .883 

laws. 2158 

laws. 2595 

The  laws  are  ordered  sequentially  within  the  files;  therefore,  to 
find  any  particular  accession  number  (1040,  for  example),  check  the  list 
of  laws  files.  In  the  laws  files  listed  above,  there  is  a file  named 
"laws. 1020"  and  the  next  one  is  "laws. 1043."  The  file  "laws. 1020"  will 
contain  accession  numbers  1020  to  1042.  Therefore,  number  1040  must  be 
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in  "laws. 1020."  This  information  is  only  necessary  for  editing,  since 
the  CELDS  retrieval  program  will  automatically  find  the  appropriate  file 
when  CELOS  is  being  used. 

Within  an  accession  number,  the  data  fields  are  in  sequential 
order.  Each  field  must  be  present  and  must  be  preceded  by  a line  begin- 
ning with  a five-digit  accession  number,  and  a three-digit  field 
number.  For  example,  the  beginning  of  field  2 in  accession  number  5 
would  be  preceded  by:  #00005002 

The  following  is  a sample  from  the  file  “laws. 2793": 

*02793001 
*02793002  2793 

#02793003  transportation  of  radioactive  material. 

#02793004  2-10-75 

rules  and  regulations  for  protection  against  radiation;  part  c: 
#02793005  licensing  of  radioactive  material;  section  c.100. 

#02793006  transportation 
#02793007 

dept,  of  publ ic  heal th 

*02/93008  535  w.  jefferson  st.,  Springfield  il  62761 

*02793009  same  as  legislative  reference 

radioactive  material  shall  not  be  transported  outside  of  the 
authorized  location  of  use  unless  the  regulations  found  in  the 
following  are  complied  with: 

1)  49  cfr,  parts  170-189 

2)  14  cfr,  part  103 

3)  46  cfr,  part  146 

4)  19  cfr,  parts  14  and  15 

5)  illinois  vehicle  code,  chap.  95  1/2,  section  12-704.1 
these  regulations  relate  to  the  packaging,  marking,  storing, 

loading,  and  monitoring  of  radioactive  material,  and  to  the 
reporting  of  accidents. 

procedures  for  opening  and  closing  packages  of  radioactive 
material  shall  be  established  and  made  available  to  those  receiving 
the  packages 

*0273010 
#02793011  none 

#02793012  damage  to  vehicles-injuries  to  humans 
radioactive  substances 
packaging 
transportation 

Laws,  too  File 

The  index  to  the  laws  and  fields  in  the  "laws"  files  is  kept  in  a 
table  of  contents  (toe)  file  known  as  the  "laws. toe"  file.  The  CELDS 
retriever  uses  this  file  to  determine  the  file  that  contains  a given  law 
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and  what  character  numbers  in  the  file  the  fields  of  that  law  include. 

The  “laws. toe"  file  contains  13  entries  for  each  accession  number.  The 
first  entry  is  the  number  of  the  file  containing  the  accession  number. 

For  example,  a particular  law  may  be  in  the  laws. 31  file.  For  this  law, 
the  first  entry  in  "laws. toe"  would  contain  the  number  31.  The  remain- 
ing 12  entries  are  the  character  numbers  within  that  file  which  repres- 
ent the  start  of  each  of  the  12  additional  data  fields.  Therefore,  to 
locate  any  law,  multiply  the  accession  by  13  and  locate  that  record 
number  in  the  "laws. toe"  file.  The  first  word  will  indicate  which  "laws" 
file  to  search  for  the  accession  number  and  the  next  12  words  will  Indi- 
cate the  start  of  each  field  within  that  file.  The  "laws. toe"  file  is 
created  by  the  "push"  program  and  is  updated  or  modified  by  the  "repair" 
program. 

Isol  Files 

The  "Isol"  files,  created  by  the  "push"  program,  are:  agy.isol, 

mec.isol,  gps.isol,  att.isol,  and  top. isol.  Each  searchable  field  has 
an  "isol"  file  created  which  consists  of  the  searchable  fields  from  the 
"laws"  files--that  is,  the  first  line  of  the  agency  field,  the  gps  field, 
the  mec  field,  the  attribute  field,  and  the  keyword  field.  A sample 
from  "mec.isol"  would  look  like: 

00005:  air  quality 
00006:  air  quality 
00039:  air  quality 
00047:  air  quality 
00047:  health  science 
00047:  solid  waste 
00048:  air  quality 
00050:  air  quality 
00051:  air  quality 
00052:  air  quality 
00054:  water  quality 

Alpha  Files 

The  "alpha"  files  are  sorted  versions  of  the  "isol"  files.  They 
are  in  alphabetical  order  by  search  term,  and  for  the  same  search  terms 
they  are  in  sequential  order  by  accession  number.  For  example,  under 
the  key. isol  file,  "dredging"  would  be  before  "estuaries,"  and  under 
"dredging,"  the  laws  would  be  sequenced  by  accession  number. 

Val  Files 

The  "val"  file  for  a field  contains  all  of  its  search  terms  and  a 
"hash"  table  for  quick  access  to  those  terms.  The  first  part  of  the 
file  is  the  hash  table,  i-  contains  max_hash_number  + 10  "slots"  or 
words.  "Max_hash_nunber"  Is  currently  defined  to  be  4001.  The  10 
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additional  slots  is  merely  to  allow  for  the  possibility  of  several  dif- 
ferent terms  hashing  to  4000.  This  number  must  be  greater  than  the 
number  of  searchable  terms,  since  each  term  must  occupy  one  slot.  Each 
slot  contains  either  a zero,  which  indicates  that  no  terms  hashed  to 
this  number,  or  the  record  number  of  the  term  that  hashed  to  this  vain-  . 
Following  the  hash  table  are  the  records,  each  of  which  (one  for  every 
term)  is  64  characters  long.  The  first  62  characters  are  the  search 
term  itself;  the  remaining  two  characters  (one  word)  are  an  integer 
number  that  gives  the  position  in  the  "list"  file  of  the  beginning  of 
the  list  of  accession  numbers  associated  with  this  term.  Therefore,  to 
locate  the  list  of  laws  associated  with  a search  term,  determine  the 
hash  number  and  look  in  that  "slot"  in  the  hash  table.  This  will  give 
the  record  number  in  the  val  file.  Calculate  the  character  number  with 
which  the  record  begins  by  multiplying  the  record  number  by  64  (the 
number  of  characters  per  record)  and  adding  the  size  in  characters  of 
the  hash  tables  (since  this  precedes  the  records  in  the  val  file). 

The  "val"  files  are  created  by  the  "make_search"  program  and  are 
used  in  the  CELDS  retriever  to  do  searches. 

List  Files 

The  "list"  files  are  lists  of  law  numbers  terminated  by  19999  and 
are  of  variable  length.  The  law  numbers  are  stored  as  integers,  i.e., 
one  word  (two  characters)  per  number.  The  entry  contained  in  the  "val" 
file  is  the  position  of  the  start  of  a law  list,  i.e.,  its  number  in  the 
"list"  file.  To  convert  this  to  the  starting  character  number  of  a law 
list,  multiply  by  two,  since  there  are  two  characters  per  integer 
number. 


Documentation  of  Programs 

Repair 

"Repair"  is  the  program  which  reads  a "laws"  file  and  prepares  the 
"laws. toe"  file.  A variable  keeps  the  current  character  number  as  the 
file  is  read.  When  a new  field  is  encountered,  the  appropriate  address 
is  entered  into  the  "laws. toe"  file. 

Some  data  validation  is  also  performed  by  "repair."  Accession  num- 
bers and  field  numbers  are  checked  for  sequential  order.  Lines  contain- 
ing errors  are  printed.  If  "repair"  is  executed  without  a argument, 
validation  is  the  only  task  performed. 

If  "repair"  is  executed  with  a argument  (e.g.,  "repair  - 
laws.l"),  "isol"  files  are  produced  (see  Detailed  File  Description  sec- 
tion). As  searchable  fields  are  encountered  in  the  input  stream,  they 
are  copied  to  an  appropriate  "isol"  file  (e.g.,  "key. isol"  for  key- 
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words).  In  standard  operation  "repair"  Is  executed  with  a " “ argunent 
only  by  the  "push"  program.  Appendix  C provides  a documenteH  copy  of 
the  source  code. 

Make_Searoh 

"Make_search"  Is  the  program  which  reads  a sorted  version  of  the 
"Isol"  files  produced  by  "repair"  and  creates  "val"  and  "list”  files  for 
each  searchable  field.  It  requires  an  argument  indicating  which  search- 
able field  Is  being  prepared.  For  example,  "make_search  mec"  will  use 
"mec. alpha"  to  produce  the  files  "mec. list"  and  "mec. val."  Appendix  D 
provides  a documented  copy  of  this  source  code. 

Hier 

"Hier"  reads  a static  thesaurus  file  ("key. hier")  and  creates  hier- 
archical search  files  (“list"  and  "val").  Currently,  this  applies  only 
to  the  keyword  field.  Searches  in  the  keyword  field  are  presumed  to  be 
hierarchical,  i.e.,  a search  for  a broad  term  will  also  include  all  nar- 
rower terms  under  it.  The  nonhierarchical  file  is  referred  to  as  "top" 
(for  topic),  while  the  hierarchical  file  Is  "key"  (e.g.,  "top. val," 

"key. val,"  etc.). 

"Top. val"  and  "top. list"  files  are  produced  by  "make_search  top." 
These  two  files  are  then  used  by  "hier"  to  construct  lists  of  laws  for 
the  terms  in  the  thesaurus  file.  Appendix  E provides  the  documented 
source. 

Push 

"Push"  is  the  shell  program  (command  file)  which  is  executed  to 
create  a new  data  base.  It  systematically  executes  "repair"  for  every 
"laws"  file,  and  then  sorts  the  "Isol"  files  produced  into  the  "alpha" 
files  required  by  the  "make_search"  program.  Next,  it  executes  "make_ 
search"  for  each  of  the  CELDS  searchable  fields.  Finally,  "hier"  is  ex- 
ecuted to  produce  the  hierarchical  keyword  file. 

"Push"  is  a shell  file.  The  procedures  it  uses  include  "repair" 
and  "make_search."  Appendix  F provides  a documented  copy  of  this  file. 

CELDS 

The  "CELDS"  program,  sometimes  referred  to  as  the  retriever,  is  the 
main  part  of  the  CELDS  system.  It  provides  the  user  interface  and  per- 
forms the  requested  searching  and  listing  of  information.  A few  con- 
ventions involving  global  variables  are  used  throughout  the  CELDS  rou- 
tines. An  input  line  is  read  into  a buffer  called  "request."  Two 
pointers  into  this  buffer  are  maintained:  (1)  "old  request_location" 
points  to  the  previous  position  in  the  line,  and  (7)  request_location 
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points  to  the  current  position  in  the  request  line.  The  word  that  is 
currently  being  processed  in  the  request  line  is  stored  in  the  array 
"word"  and  is  nul 1- terminated.  Every  routine  that  uses  a word  gets  the 
next  word  and  places  it  into  the  "word"  array  in  preparation  for  the 
next  routine  to  be  called.  Thus,  every  routine  expects  that  "word"  is 
already  prepared  for  it;  in  turn,  it  fixes  "word"  for  the  next  routine. 
If  the  line  terminates,  then  a null  is  placed  into  word  [0],  In  all 
cases,  " get_next_word"  is  called  to  provide  the  next  word  from  a line. 
Appendix  G provides  the  documented  source  code  for  the  retriever  rou- 
ti nes. 

Library  Routines 

Besides  the  routines  appearing  in  the  appendices,  several  routines 
of  general  utility  to  the  CELDS  programs  are  kept  in  a library.  These 
include  routines  of  the  type  to  do  hashing,  input/output,  concatenation 
of  strings,  etc.  Appendix  H provides  these  routines.  One  other  file 
also  included  in  Appendix  H is  "search. i."  This  is  an  "include"  file 
(see  C Reference  Manual").  It  contains  constants  used  by  most  of  the 
CELDS  programs,  such  as  hash  table  size,  maximum  number  of  laws,  etc. 
Each  program  that  depends  on  these  has  an  "include"  statement  which  has 
the  effect  of  incorporating  the  "search. i"  file  into  the  source  code. 
Changing  a parameter  in  the  “search.i"  file  will  therefore  cause  it  to 
be  changed  in  all  of  the  CELDS  programs,  thus  eliminating  errors  due  to 
over si ght. 


Dennis  M.  Ritchie,  c Reference  Manual  (Bell  Telephone  Laborato- 
ries). 
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6 SUMMARY  AND  RECOMMENDATION 


CELDS  contains  abstracts  of  environmental  legislation  for  the  Fed- 
eral government  and  for  all  50  states  and  Puerto  Rico.  This  report  has 
provided  complete  documentation  of  CELDS,  Including  background  infor- 
mation, description  of  data  records,  how  the  information  is  abstracted, 
indexed,  and  updated,  and  listings  of  the  software.  The  docunentation 
described  in  this  report  should  be  used  for  any  future  modification, 
update,  and  maintenance  of  CELDS. 

CELDS  should  be  brought  up  in  an  operational  environment  and  made 
available  to  all  elements  of  the  Army  to  aid  with  environmental  ques- 
tions. 


r 


AIR  DUALITY 


ENV  INFLUENCE  KAC 

AIR  MASS 

STABILITY 
TEMPERATURE 
MIX  INC  DEPTH 
VII  Nil  SPEED 
WIND  DIRECTION 
HUMIDITY 
PRECIPITATION 

LAN!)  MASS 

ALBEDO 

INSOLATION 

TOPOGRAPHY 

PARTICULATES 

AGGREGATE 

DUST  AND  FUMES 
FLY  ASH 

SMOKE  AND  SOOT 

INORG  SOLIDS,  MISTS 

ALUMINUM  AND  COMPOUNDS 
ARSENIC  AND  COMPOUNDS 
ASBESTOS 

BARIUM  AND  COMPOUNDS 
BERYLLIUM  AND  COMPOUNDS 
BORON  AND  COMPOUNDS 
CADMIUM  AND  COMPOUNDS 
CALCIUM  AND  COMPOUNDS 
CHROMIUM  AND  COMPOUNDS 
COPPER  AND  COMPOUNDS 
IRON  AND  COMPOUNDS 
LEAD  AND  COMPOUNDS 
MANGANESE  AND  COMPOUNDS 
MOLYBDENUM  AN!)  COMPOUNDS 
NICKEL  AND  COMPOUNDS 
SELENIUM  AN!)  COMPOUNDS 
SILICON  AND  COMPOUNDS 
SILVER  AND  COMPOUNDS 
SODIUM  AND  COMPOUNDS 
THALLIUM  AND  COMPOUNDS 
TIN  AND  COMPOUNDS 
TITANIUM  AND  COMPOUNDS 
TUNGSTEN  AND  COMPOUNDS 
VANADIUM  AND  COMPOUNDS 
ZINC  AND  COMPOUNDS 
ZIRCONIUM  AN!)  COMPOUNDS 
RADIOACTIVE  SUBSTANCES 
FLUORINE  AND  COMPOUNDS 
SULFUR  AND  COMPOUNDS 


30 


? 


1 

1 


CHLORINE  AN!)  COMPOUNDS 
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ECOLOGY 
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INADEOUATE  TRAINING 


I 


J 
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DISLOCATION  ADJUSTMENTS 
ARMY  DISCIPLINE 
PERSONNEL  POLICIES 
PHYSICAL  OVEREXPOSURE 
ECONOMIC  HARDSHIPS 
INDIV  IN  COMMUNITY  NEAR  INST 
MILITARY  SECRECY 
VISUAL  ENVIRONMENTAL  CHANCES 
COMMUNICATIONS  NETWORK  INTERFERENCE 
BOTH  ARMY  PERSONNEL  + PRIVATE  INDIV 
TRAFFIC  OVEREXPOSURE 
TRAUMATIC  EXPERIENCES 
POLLUTANT  OVEREXPOSURE 
HOUSING  CONDITIONS 
POPULATION  CHANCE 

SAFETY 

TRANSPORTATION  SAFETY 
AIR 

GROUND 

WATER 

RESIDENTIAL  OR  HOME  AREA 
COMMUNITY /MARKETING 
WORK 

RECREATION 

RADIATIONS 

RADIATION-IONIZING 
RADIATION -MIC  ROW A VE 
RADIATION-LASER 
OTHER  RADIATION 

CNTRVSL 

EXPOSURE  TO  CARCINOGENS /MUTAGENS 
HARMFUL  FOODS/WATER  ADDITIVES 
PSYCHOLOGICAL  STRESSORS 
DRUG  + NARCOTICS  ABUSE 
ENDANGERING  COMMUNITY  HEALTH 
ENDANGERING  COMMUNITY  SAFETY 
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LAND  USE 

CONSUMPTION 

CONSUMPTION  OF  LAND 

CONFLICT 

ACCESS  TO  MINERALS 
INTERFERENCE  OFF  OF  POST 
INCOMPATIBILITY  ON  POST 

CHANCE 

INDUCE!!  LAND-USE  CHANCES 

CNTRVSL 

CONSUMPTION  OF  LAND 
ACCESS  TO  MINERALS 
INTERFERENCE  OFF  OF  POST 
INDUCED  LAND-USE  CHANCES 


noise 
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PHYS  IOLOCICAL  MAINTENANCE 

SLEEP  PERFORMANCE 

TASK  PERFORMANCE 

AURAL  COMMUNICATION 

TELEVISION/RADIO  COMMUNICATION 

LAND  USE  INCOMPATIBILITY  AND  INTEGRITY 

CNTRVSL 

COMMUNITY  ANNOYANCE 

PROPERTY  VALUE  DEPRECIATION 


10 


SOCIOLOGY 

HUMAN  K001.G 

POPULATION 

SIZE 

COMPOSITION 
MKT  CHANGE 
HUMAN  F.COLG 

RURAL  AREAS 
UR HAM  AREAS 
SUBURBS 
URBAN  FRINGE 

SOC  STRUCT 

SOCIAL  CATEGORIES 

AGE  CATEGORIES 
SEX  CATEGORIES 
FAMILY  STATUS  CATEGORIES 
SOCIAL  CLASSES 

UPPER  CLASS 
MIDDLE  CLASS 
LOWER  CLASS 
ASSOCIATIONS 

VOLUNTARY  ASSOCIATION 
ORGANIZATIONS 
INSTITUTIONS 

FAMILIES 

EDUCATIONAL  ORGANIZATIONS 
RELIGIOUS  ORGANIZATIONS 
SOCIAL  CONTROL 

LAW  ENFORCEMENT 

SOCI.  PROC 

SOCIAL  CONTROL 
COURTS 

POLITICAL  PROCESS 
WELFARE  AND  DEPENDENCY 
PUBLIC  OPINION 
PUBLICS 

OPINION  LEADERS 
OPINION  PROCESS 
MASS  COMMUNICATIONS 

PRINTED  MEDIA 
BROADCAST  MEDIA 

CNTRVSL 

POPULATION 

ECOLOGY 

EDUCATIONAL  ORGANIZATIONS 
SOCIAL  CONTROL 
PUBLIC  OPINION 
MASS  COMMUNICATION 
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AESTHETIC  CHARACTER  OF  COMMUNITY 


* 


SOLID  WASTE 


12 


COLLECTION 

DISPOSAL 

MANAGEMENT 


n 


TRANSPORTATION 


ROAD  TRANS 

DISRUPTIONS  IN  HIGHWAY  TRAFFIC  FLOW 
INDIICKI)  MODIFICATION  TO  HIGHWAYS 
POLLUTION  FROM  HIGHWAYS 
DAMAGF.  TO  HIGHWAYS 

DAMAGE  TO  VEHICLES  -INJURIES  TO  HUMANS 
RAIL  TRANS 

DISRUPTION  TO  RAILWAY  TRAFFIC 
INDUCED  MODIFICATION  TO  RAILWAYS 
POLLUTION  FROM  RAILWAYS 
DAMAGE  TO  RAILWAYS 
AIR  TRANS 

DISRUPTION  TO  AIRFIELD  TRAFFIC 
INDUCED  MODIFICATION  TO  AIRFIELDS 
POLLUTION  FROM  AIRFIELDS 
DAMAGE  TO  AIRFIELDS 
WATER  TRAN 

DISRUPTION  TO  WATERWAY  TRAFFIC 
INDUCED  MODIFICATION  TO  WATERWAYS 
POLLUTION  FROM  WATERWAYS 
DAMAGE  TO  WATERWAYS 

CNTRVSL 

DISRUPTIONS  IN  HIGHWAY  TRAFFIC  FLOWS 


14 


W All'll  QUALITY 

PHYS  ENVMT 

AQUIFER  CHAR 

AVAILABILITY  OF  CROIINI)  WATER 
WATER  QUALITY  PARAMS 
TURBIDITY 
TEMPERATURE 
COLOR 

SUSPENDED  SOLIDS 

CROSS  SOLIDS 

SETTLF.ARLE  SOLIDS 

FLOATING  SOLIDS 

VOLATILE  SUSPENDED  SOLIDS 

TASTE  AND  ODOR 

OILS 

DISSOLVED  CASES 
STREAM  OR  WATER  RODY 
DEPTH 
VELOCITY 

SOLAR  RADIATION  INTENSITY 

WIND  VELOCITY  AND  DIRECTION 

DYNAMIC  PRESSURE 

ATMOSPHERIC  REAERATION 

MORPHOMETRY  AND  FLOW  PATTERN 

SUBSTRATUM 

DEPENDABLE  YIELD 

MAXIMUM  DISCHARGE 

MINIMUM  DISCHARGE 

RATE  OF  CHANCE  OF  DISCHARGE 

CHEM  ENVMT 

INORGANIC 

IRON 

MANGANESE 
SODIUM 
CALCIUM 
MAGNESIUM 
NITROGEN 
PHOSPHORUS 
ARSENIC 
BARIUM 
BORON 
CADMIUM 
CHROMIUM 
COPPER 
FLUORIDE 
LEAD 
MERCURY 
NICKEL 


L J 
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SELENIUM 

SILVER 

ZINC 

ALKALINITY  AND  ACIDITY 

HYDROGEN  ION  CONCENTRATION  (PH) 

OXIDATION  REDUCTION  POTENTIAL  (EH) 

DISSOLVED  CARRON  DIOXIDE 

TOTAL  DISSOLVED  SOLIDS 

CHLORIDE 

SULFUR 

DISSOLVED  OXYGEN 
SALINITY 

OTHER  INORCANCIC  CHEMICALS 

ORGANIC 

ROD 

COD 

PHENOLS 

DETERGENTS 

CARCINOGENIC  SUBSTANCES 

CARRON  CHLOROFORM  EXTRACT  (CCE) 

CYANIDE 

METHANE 

OTHER  ORGANIC  COMPOUNDS 

R IOC  IDES 

PESTICIDES 

RADIOACTIVE 

RADIOACTIVITY 

BIOLOGICAL 

PATHOGENIC 

PATHOGENIC  VIRUSES 
PATHOGENIC  BACTERIA 
PATHOGENIC  PROTOZOA 
OTHER  PATHOGENIC  ORGANISMS 
AQUATIC  LIFE 

PLANKTON 

BENTHOS 

NEKTON 

OTHER  ORGANISMS 
COMMUNITY  MAINTENANCE 

CNTRVSL 

SYNTHETIC  DETERGENTS 

FLUORIDATION 

WATER  QUANTITY 

MERCURY 

OIL 

THERMAL  POLLUTION 

OTHER  POTENTIALLY  CONTROVERSIAL  ASPECTS 
AQUIFER  YIELD 
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ACCIDENTS 

SN  UNINTENTIONAL  RELEASES  OF  CONTAMINANTS  INTO  THE 

AIR  OR  WATER. 

NT  OIL  SPILLS 

ACIDS 

BT  INORGANIC  COMPOUNDS 

NT  NITRIC  ACID 

SULFURIC  ACID 

RT  HAZARDOUS  MATERIALS 

* 

AGRICULTURAL  POLLUTION 

NT  FEED LOTS 

GRAIN  HANDLING 
RT  COTTON  GINS 

EROSION 
FERTILIZERS 
HERBICIDES 
PESTICIDES 
RENDERING 

AIR  POLLUTION  CONTROL 

SN  DEVICE  OR  PROCEDURE  USED  TO  LIMIT  THE  RELEASE 

OF  CONTAMINANTS  INTO  THE  AIR. 

AIR  POLLUTION  EPISODES 

SN  STATUS  DECLARED  BY  STATE  OFFICIALS  WHEN  AIR 

CONTAMINANTS  REACH  HIGH  LEVELS;  EMISSION  REDUCTION 
PLANS  MUST  THEN  BE  ADHERED  TO. 


AIR  POLLUTION  SOURCES 

NT  ASPHALT  PLANTS 

BOILERS 
CEMENT  PLANTS 
COATINGS 
COKE  OVENS 
COTTON  GINS 
FERROALLOYS 

STEEL 

FOUNDRIES 

FURNACES 

BLAST  FURNACES 
CUPOLAS 

GRAIN  HANDLING 
HEAT  EXCHANGERS 
INCINERATORS 

CONICAL  BURNERS 
INDIRECT  SOURCES 
AIRPORTS 
ROADS 
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INDUSTRIAL  COOLING 
LANDFILLS 

SANITARY  LANDFILL 
MANUFACTURING 

CHEMICAL  MANUFACTURING 
NONFRRROUS  METALS 
ARSENIC 
BARIUM 
BERYLLIUM 
CADMIUM 
CHROMIUM 
COPPER 
LEAD 

MANGANESE 

MERCURY 

NICKEL 

SILVER 

SODIUM 

ZINC 

OPEN  BURNING 
POWER  SOURCES 

INTERNAL  COMBUSTION  ENGINES 
DIESEL  ENGINES 
GASOLINE  ENGINES 
NUCLEAR  ENERGY 
STEAM  GENERATING  PLANTS 
TURBINES 
PULP  MILLS 

SEPARATION  PROCESSES 

SINTERING 

SMELTERS 

SPRAYING 

STOCKPILES 

VEHICLES 

AIR  QUALITY  CLASSIFICATION 

BT  CLASSIFICATION 

RT  LAND  CLASSIFICATION 

WATER  CLASSIFICATION 

AIR  QUALITY  CONTROL  REGIONS 
USE  AQCR,  SPECIFIC 

AIR  QUALITY  STANDARDS 

RT  EMISSION  STANDARDS 

AIRBORNE  PARTICULATES 

UF  PARTTOULATES 

NT  ASH 

DUST 


47 


Draft 


3 


FUMES 

MISTS 

SMOKE 

RT  OPACITY 

AIRCRAFT 

RT  VEHICLES 

WATERCRAFT 

AIRPORTS 

BT  AIR  POLLUTION  SOURCES 

INDIRECT  SOURCES 

RT  ROADS 

ALCOHOLS 

BT  ORGANIC  COMPOUNDS 

RT  * 

ALDEHYDES 

BT  ORGANIC  COMPOUNDS 

RT  * 


ALKYL  BENZENE  SULFONATES 

BT  INORGANIC  COMPOUNDS 

SULFUR 

RT  SULFUR  OXIDES 

SULFURIC  ACID 

AMMONIA 

BT  INORGANIC  COMPOUNDS 

NT  AMMONIA  NITROGEN 

RT  HAZARDOUS  MATERIALS 

* 


AMMONIA  NITROGEN 

BT  INORGANIC  COMPOUNDS 

AMMONIA 


AMMUNITION 

BT  EXPLOSIVES 

RT  * 


AQCR,  SPECIFIC 

SN  A COLLECTIVE  KEYWORD  FOR  SPECIFIC  AQCR'S  WHICH 

HAVE  BEEN  TREATED  INDIVIDUALLY  IN  THE  REGULATIONS 
AND  DATA  BASE;  NAMES  OF  AQCR'S  ARE  NOT  LISTED 
IN  THE  THESAURUS. 

UF  AIR  QUALITY  CONTROL  REGIONS 
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AQUATIC  ANIMALS 

BT  AQUATIC  LIFK 

RT  AQUATIC  P1JVNTS 

FISH 


AQUATIC  LIFE 
NT 


AQUATIC  ANIMALS 
AQUATIC  PLANTS 
FISH 
FLORA 

PROTECTED  SPECIES 
WILDLIFE 


AQUATIC  PLANTS 

BT  AQUATIC  LIFE 

RT  AQUATIC  ANIMALS 

FISH 


ARSENIC 


ASBESTOS 


ASPHALT  PLANTS 
BT 
RT 

ATLANTIC  OCEAN 
RT 


AIR  POLLUTION  SOURCES 

NONFERROUS  METALS 
INORGANIC  COMPOUNDS 

NONFERROUS  METALS 
POINT  SOURCES 

NONFERROUS  METALS 


INORGANIC  COMPOUNDS 
SILICATES 
POINT  SOURCES 
FELDSPARS 

HAZARDOUS  MATERIALS 


AIRBORNE  PARTICULATES 

DUST 

FUMES 

MISTS 

SMOKE 


AIR  POLLUTION  SOURCES 


COASTS 
SALINE  WATER 
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WATERWAYS 

WETLANDS 


BACTERIA 

NT  FECAL  COLIFORMS 

RT  HAZARDOUS  MATERIALS 

BARIUM 

BT  AIR  POLLUTION  SOURCES 

NONFERROUS  METALS 
INORGANIC  COMPOUNDS 

NONFERROUS  METALS 
POINT  SOURCES 

NONFERROUS  METALS 

RT  * 

BASINS 

USE  BAYS,  SPECIFIC 

BAYS,  SPECIFIC 

SN  A COLLECTIVE  KEYWORD  FOR  SPECIFIC  BAYS  WHICH  HAVE 

BEEN  TREATED  INDIVIDUALLY  IN  THE  REGULATIONS 

AND  DATA  BASE;  NAMES  OF  BAYS  ARE  NOT  LISTED 
IN  THE  THESAURUS. 

UF  BASINS 

HARBORS 

RT  SEAPORTS 

BERYLLIUM 

BT  AIR  POLLUTION  SOURCES 

NONFERROUS  METALS 
INORGANIC  COMPOUNDS 

NONFERROUS  METALS 
POINT  SOURCES 

NONFERROUS  METALS 

RT  * 

BIOCHEMICAL  OXYGEN  DEMAND 

USE  BOD 

BIOLOGICAL  WARFARE  AGENTS 


RT 

CHEMICAL  WARFARE  AGENTS 
HAZARDOUS  MATERIALS 

BLACK 

POWDER 

BT 

EXPLOSIVES 

RT 

* 

BLAST 

FURNACES 

BT 

AIR  POLLUTION  SOURCES 
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RT 


FURNACES 
POINT  SOURCES 

FURNACES 

CUPOLAS 


BLASTING  CAPS 

BT  EXPLOSIVES 

RT  * 


BOD 

UF  BIOCHEMICAL  OXYGEN  DEMAND 

RT  COD 

DISSOLVED  OXYGEN 

BOILERS 

BT  AIR  POLLUTION  SOURCES 

POINT  SOURCES 
RT  * 


BORON 

BT  INORGANIC  COMPOUNDS 

RT  * 


CADMIUM 

BT  AIR  POLLUTION  SOURCES 

NONFERROUS  METALS 
INORGANIC  COMPOUNDS 

NONFERROUS  METALS 
POINT  SOURCES 

NONFERROUS  METALS 

RT  * 


CANNON  AMMUNITION 

BT  EXPLOSIVES 

RT  * 

CARBON 

BT  ORGANIC  COMPOUNDS 

NT  CARBON  MONOXIDE 

ORGANIC  CARBON 
RT  CCE 

HYDROCARBONS 


CARBON  CHLOROFORM  EXTRACT 
USE  CCE 


CARBON  MONOXIDE 

BT  ORGANIC  COMPOUNDS 
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CARBON 

RT  ORGANIC  CARBON 

OXIDANTS 

CCE 

UF  CARBON  CHLOROFORM  EXTRACT 

BT  ORGANIC  COMPOUNDS 

RT  CARBON 

* 

CEMENT  PLANTS 

BT  AIR  POLLUTION  SOURCES 

POINT  SOURCES 
RT  * 


CHANNELIZATION 

SN  ANY  ACT  WHICH  AFFECTS  THE  BED  OR  ROUTE  OF  A BODY 

OF  WATER. 

NT  DREDGING 

CHANNELS 

RT  WATERWAYS 


CHEMICAL  AMMUNITION 

BT  EXPLOSIVES 

RT  * 

CHL.  IICAL  MANUFACTURING 

SN  TERM  TO  DENOTE  POINT  SOURCES  WHICH  MANUFACTURE 

INORGANIC  OR  ORGANIC  CHEMICALS 
BT  AIR  POLLUTION  SOURCES 

MANUFACTURING 
POINT  SOURCES 

RT  INORGANIC  COMPOUNDS 

ORGANIC  COMPOUNDS 

* 

CHEMICAL  OXYGEN  DEMAND 
USE  COD 

CHEMICAL  WARFARE  AGENTS 

RT  BIOLOGICAL  WARFARE  AGENTS 

HAZARDOUS  MATERIALS 

CHLORIDES 

NT  VINYL  CHLORIDES 

RT  HAZARDOUS  MATERIALS 
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CHLORINE 

BT  INORGANIC  COMPOUNDS 

RT  * 

CHROMIUM 

BT  AIR  POLLUTION  SOURCES 

NONFERROUS  METALS 
INORGANIC  COMPOUNDS 

NONFERROUS  METALS 
POINT  SOURCES 

NONFERROUS  METALS 

RT  * 

CITIES 

USE  URBAN  AREAS 

URBAN  AREAS,  SPECIFIC 

CLASSIFICATION 

SN  QUALITY  AND/OR  USE  CLASSIFICATION  FOR  LAND  OR 

WATER;  ADMINISTRATIVE  REGIONS  FOR  AIR  QUALITY. 

NT  AIR  QUALITY  CLASSIFICATION 

LAND  CLASSIFICATION 
WATER  QUALITY  CLASSIFICATION 

COAL 

BT  FUELS 

RT  COKE 

LIQUID  FUELS 

PETROLEUM 

WOOD 

COASTS 

RT  ATLANTIC  OCEAN 

PACIFIC  OCEAN 
SALINE  WATER 
SEAPORTS 
TIDAL  WATER 
WETLANDS 

COATINGS 

SN  SUBSTANCES  APPLIED  TO  SURFACES  BY  ELECTROPLATING 

OR  SPRAYING  IN  A MANNER  PERMITTING  RELEASE  OF 
POLLUTANTS;  E.G.,  PAINTS  OR  METALS. 

UF  ELECTROPLATING 

BT  AIR  POLLUTION  SOURCES 

POINT  SOURCES 

RT  HAZARDOUS  MATERIALS 

SPRAYING 
* 
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COD 

UF  CHEMICAL  OXYGEN  DEMAND 

RT  BOD 

DISSOLVED  OXYGEN 

COKE 

BT  FUELS 

RT  COAL 

LIQUID  FUELS 

PETROLEUM 

WOOD 

COKE  OVENS 

BT  AIR  POLLUTION  SOURCES 

POINT  SOURCES 
RT  * 

CO LI FORM  BACTERIA 

USE  FECAL  CO LI FORMS 

COLOR 

CONDUCTIVITY 

CONICAL  BURNERS 

BT  AIR  POLLUTION  SOURCES 

INCINERATORS 
WASTE  DISPOSAL 

INCINERATORS 

CONTAINERS 

RT  PACKAGING 

STORAGE  TANKS 

COPPER 

BT  AIR  POLLUTION  SOURCES 

NONFERROUS  METALS 
INORGANIC  COMPOUNDS 

NONFERROUS  METALS 
POINT  SOURCES 

NONFERROUS  METALS 

RT  * 

COTTON  GINS 

BT  AIR  POLLUTION  SOURCES 

RT  AGRICULTURAL  POLLUTION 

* 


Draft 
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COUNTIES,  SPECIFIC 

SN  A COLLECTIVE  KEYWORD  FOR  SPECIFIC  COUNTIES  WHICH 

HAVE  BEEN  TREATED  INDIVIDUALLY  IN  THE  REGULATIONS 

AND  DATA  BASE;  NAMES  OF  COUNTIES  ARE  NOT  LISTED 
IN  THE  THESAURUS. 

CRUDE  OIL 

USE  PETROLEUM 

CUPOLAS 

BT  AIR  POLLUTION  SOURCES 

FURNACES 
POINT  SOURCES 

FURNACES 

RT  BLAST  FURNACES 

CYANIDES 

BT  INORGANIC  COMPOUNDS 

RT  HAZARDOUS  MATERIALS 

* 

DEPOSITION 

RT  EROSION 

SEDIMENTATION 
SETTLEABLE  SOLIDS 


DESIGN  CRITERIA 


D ETON AT INC  DEVICES 

BT  EXPLOSIVES 

RT  * 


DIESEL  ENGINES 

BT  AIR  POLLUTION  SOURCES 

POWER  SOURCES 

INTERNAL  COMBUSTION  ENGINES 

POINT  SOURCES 

POWER  SOURCES 

INTERNAL  COMBUSTION  ENGINES 

RT  GASOLINE  ENGINES 


DISPERSANTS 

UF  EMULSIFIERS 

RT  OIL  SPILLS 

SOLVENTS 


DISSOLVED  OXYGEN 

RT  BOD 

COD 


Draft 
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DISSOLVED  SOLIDS 

RT  SETTLEABLE  SOLIDS 

SUSPENDED  SOLIDS 


DREDGING 


DRINKING  WATER 


CHANNELIZATION 


USE  POTABLE  WATER 


DUMPING  GROUNDS 


SOLID  WASTE  DISPOSAL  ARRAS  IN  A BODY  OF  WATER. 

WASTE  DISPOSAL 

GARBAGE  COLLECTION 

INCINERATORS 

JUNKYARDS 

LANDFILLS 

OPEN  BURNING 

OPEN  DUMPING 

TRANSFER  STATIONS 

WASTE  PROCESSING 


BT  AIRBORNE  PARTICULATES 

RT  ASH 

FUMES 

MISTS 

SMOKE 

ECONOMIC  POISONS 

USE  HERBICIDES 
PESTICIDES 

EFFLUENT  STANDARDS 

RT  WATER  QUALITY  STANDARDS 


EFFLUENTS 

NT 


INDUSTRIAL  WASTES 

PROCESS  WASTE  WATER 

SEWAGE 
MIXING  ZONE 
POINT  SOURCES 
THERMAL  POLLUTION 


ELECTROPLATING 

USE  COATINGS 

EMISSION  STANDARDS 


i 
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Draft 


EMISSIONS 

NT 


AIR  QUALITY  STANDARD 


EXHAUST  EMISSIONS 


EMULSIFIERS 

USE  DISPERSANTS 

ENDANGERED  SPECIES 

BT  PROTECTED  SPECIES 

RT  THREATENED  SPECIES 


EROSION 


ESTUARIES 

BT 

ETHYLENE 


AGRICULTURAL  POLLUTION 
DEPOSITION 
SEDIMENTATION 
SETTLF.ARLE  SOLIDS 


TIDAL  WATER 


ORGANIC  COMPOUNDS 

* 


EXHAUST  EMISSIONS 

BT  EMISSIONS 

EXHAUST  SYSTEMS 

SN  TERM  INCLUDES  EXHAUST  AND  VENTILATING  SYSTEMS. 

EXPLOSIVE  BOMBS 

BT  EXPLOSIVES 

RT  * 

EXPLOSIVE  GRENADES 

BT  EXPLOSIVES 

RT  * 

EXPLOSIVE  MINES 

BT  EXPLOSIVES 

RT  * 

EXPLOSIVE  POWER  DEVICES 

BT  EXPLOSIVES 

RT  * 

EXPLOSIVE  PROJECTILES 

BT  EXPLOSIVES 
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RT  * 

EXPLOSIVE  TORPEDOES 

BT  EXPLOSIVES 

RT  * 

EXPLOSIVES 

NT  AMMUNITION 

BLACK  POWDER 
BLASTING  CAPS 
CANNON  AMMUNITION 
CHEMICAL  AMMUNITION 
DETONATINQ  DEVICES 
EXPLOSIVE  BOMBS 
EXPLOSIVE  GRENADES 
EXPLOSIVE  MINES 
EXPLOSIVE  POWER  DEVICES 
EXPLOSIVE  PROJECTILES 
EXPLOSIVE  TORPEDOES 
GAS  MINES 
GAS  PROJECTILES 
HIGH  EXPLOSIVES 
IGNITERS 

INCENDIARY  PROJECTILES 
INITIATING  EXPLOSIVES 
JET  THRUST  UNITS 
LOW  EXPLOSIVES 
NONEXPLOSIVE  AMMUNITION 
PROPELLANT  EXPLOSIVES 
ROCKET  AMMUNITION 
ROCKET  MOTORS 
STARTER  CARTRIDGES 
RT  HAZARDOUS  MATERIALS 

PACKAGING 
STORAGE 
TRANSPORTATION 

FECAL  COLIFORMS 

UF  COLIFORM  BACTERIA 

BT  BACTERIA 

FEEDLOTS 

BT  ARGICULTURAL  POLLUTION 

POINT  SOURCES 
RT  GRAIN  HANDLING 

* 

FELDSPARS 

BT  INORGANIC  COMPOUNDS 
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SILICATES 

RT  ASBESTOS 

FERROALLOYS 

BT  AIR  POLLUTION  SOURCES 

POINT  SOURCES 
NT  STEEL 

RT  IRON 

SMELTERS 

* 

FERTILIZERS 

BT  POINT  SOURCES 

RT  AGRICULTURAL  POLLUTION 


FIRES 

RT  OPEN  BURNING 

FISH 

SN  TERM  INCLUDES  SHELLFISH;  DISTINGUISHED  FROM  OTHER 

AQUATIC  ANIMALS  MAINLY  RY  ECONOMIC  IMPORTANCE. 

UF  SHELLFISH 

BT  AQUATIC  LIFE 

RT  AQUATIC  ANIMALS 

AQUATIC  PLANTS 

FLOATING  DEBRIS 
FLOOD  CONTROL 
FLORA 

UF  PLANT  LIFE 

RT  AQUATIC  LIFE 

PROTECTED  SPECIES 
WILDLIFE 

FLUORIDES 

BT  INORGANIC  COMPOUNDS 

RT  * 

FOREST  PRESERVATION 

RT  LAND  PRESERVATION 

FOUNDRIES 

BT  AIR  POLLUTION  SOURCES 

RT  * 

FUEL  OIL 
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BT  FUELS 

LIQUID  FUELS 

RT  GASOLINE 

FUELS 

NT  COAL 

COKE 

LIQUID  FUELS 

FUEL  OIL 
GASOLINE 

WOOD 

FUMES 

BT  AIRBORNE  PARTICULATES 

RT  ASH 

DUST 
MISTS 
SMOKE 

FURNACES 

BT  AIR  POLLUTION  SOURCES 

POINT  SOURCES 
NT  BLAST  FURNACES 

CUPOLAS 
RT  * 

CARBAGE  COLLECTION 

BT  WASTE  DISPOSAL 

RT  DUMPING  GROUNDS 

INCINERATORS 
JUNKYARDS 
LANDFILLS 
OPEN  BURNING 
OPEN  DUMPING 
TRANSFER  STATIONS 
WASTE  PROCESSING 

CAS  MINES 

BT  EXPLOSIVES 

RT  * 

GAS  PROJECTILES 

BT  EXPLOSIVES 

RT  * 


GASOLINE 

BT  FUELS 

LIQUID  FUELS 

RT  FUEL  OIL 
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GASOLINE  ENGINES 

BT  AIR  POLLUTION  SOURCES 

POWER  SOURCES 

INTERNAL  COMBUSTION  ENGINES 
SOURCES 

POINT  SOURCES 

POWER  SOURCES 

INTERNAL  COMBUSTION  ENGINES 

RT  DIESEL  ENGINES 

GRAIN  HANDLING 

BT  AGRICULTURAL  POLLUTION 

AIR  POLLUTION  SOURCES 
POINT  SOURCES 
RT  FEEDLOTS 


HARBORS 

USE  BAYS,  SPECIFIC 

HAZARDOUS  MATERIALS 

RT  ACIDS 

AMMONIA 

ASBESTOS 

BACTERIA 

BIOLOGICAL  WARFARE  AGENTS 

CHEMICAL  WARFARE  AGENTS 

CHLORIDES 

COATINGS 

CYANIDES 

EXPLOSIVES 

HERBICIDES 

INDUSTRIAL  WASTES 

NONFERROUS  METALS 

OILS 

PESTICIDES 

RADIOACTIVE  SUBSTANCES 

SEWAGE 

SLUDGE 

SOLVENTS 

TOXIC  SUBSTANCES 
VOLATILE  SUBSTANCES 


HEAT  EXCHANGERS 

UF  INDIRECT  HEAT  EXCHANGERS 

BT  AIR  POLLUTION  SOURCES 

RT  * 

HERBICIDES 
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IJF  ECONOMIC  POISONS 

BT  PESTS 

RT  AGRICULTURAL  POLLUTION 

HAZARDOUS  MATERIALS 
PEST  CONTROL 
PESTICIDES 

HICH  EXPLOSIVES 

EXPLOSIVES 

* 


ORGANIC  COMPOUNDS 

CARBON 

HYDROGEN 


INORGANIC  COMPOUNDS 
HYDROGEN  FLUORIDE 
HYDROGEN  SULFIDE 
HYDROCARBONS 
PH 
* 

HYDROGEN  FLUORIDE 

BT  INORGANIC  COMPOUNDS 

HYDROGEN 

RT  HYDROGEN  SULFIDE 

HYDROGEN  ION  CONCENTRATION 
USE  PH 

HYDROGEN  SULFIDE 

BT  INORGANIC  COMPOUNDS 

HYDROGEN 

RT  HYDROGEN  FLUORIDE 

IGNITERS 

BT  EXPLOSIVES 

RT  * 

IMPOUNDMENTS  OF  WATER 
UF  RESERVOIRS 

INCENDIARY  PROJECTILES 

BT  EXPLOSIVES 

RT  * 


BT 

RT 

HYDROCARBONS 

BT 

RT 


HYDROGEN 


BT 

NT 


RT 
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INCINERATORS 

BT 


AIR  POLLUTION  SOURCES 
WASTE  DISPOSAL 
CONICAL  BURNERS 
DUMPING  GROUNDS 
GARBAGE  COLLECTION 
JUNKYARDS 
LANDFILLS 
OPEN  BURNING 
OPEN  DUMPING 
TRANSFER  STATIONS 
WASTE  PROCESSING 


INDIRECT  HEAT  EXCHANGERS 

USE  HEAT  EXCHANGERS 


INDIRCT  SOURCES 
SN 


A COLLECTIVE  TERM  FOR  BUILDINGS,  FACILITIES,  AND 

INSTALLATIONS,  THE  EXISTENCE  OR  USE  OF  WHICH  LEADS 

TO  AIR  POLLUTANT  EMISSIONS;  E.G.,  SHOPPING  CENTERS, 

AMUSEMENT  AND  RECREATION  AREAS,  PARKING  LOTS,  OFFICES. 

AIR  POLLUTION  SOURCES 

AIRPORTS 

ROADS 


INDUSTRIAL  COOLING 

BT  AIR  POLLUTION  SOURCES 

RT  * 

INDUSTRIAL  WASTES 

BT  EFFLUENTS 

NT  PROCESS  WASTE  WATER 

RT  HAZARDOUS  MATERIALS 

SEWAGE 

INITIATING  EXPLOSIVES 

BT  EXPLOSIVES 

RT  * 


INORGANIC  COMPOUNDS 

NT  ACIDS 


AMMONIA 


NITRIC  ACID 
SULFURIC  ACID 

AMMONIA  NITROGEN 


BORON 

CHLORINE 
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CYANIDES 

FLUORIDES 

HYDROGEN 

HYDROCEN  FLUORIDE 
HYDROGEN  SULFIDE 

IRON 

KAOLINITE 

MICA 

NITROGEN 

NITRIC  ACID 
NITROGEN  OXIDES 

NITROCEN  DIOXIDE 
NONFERROUS  METALS 
ARSENIC 
BARIUM 
BERYLLIUM 
CADMIUM 
CHROMIUM 
COPPER 
LEAD 

MANGANESE 

MERCURY 

NICKEL 

SILVER 

SODIUM 

ZINC 

PHOSPHORUS 

SELENIUM 

SILICATES 

ASBESTOS 

FELDSPARS 

SULFUR 

ALKYL  BENZENE  SULFONATES 
SULFUR  OXIDES 

SULFUR  DIOXIDE 
SULFURIC  ACID 

RT  CHEMICAL  MANUFACTURING 

INSECTICIDES 

USE  PESTICIDES 

INTERNAL  COMBUSTION  ENGINES 

BT  AIR  POLLUTION  SOURCES 

POWER  SOURCES 
POINT  SOURCES 

POWER  SOURCES 
NT  DIESEL  ENCINES 

GASOLINE  ENGINES 
RT  NUCLEAR  ENERGY 
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STEAM  GENERATING  PLANTS 

TURRINES 

VEHICLES 

IRON 

BT  INORGANIC  COMPOUNDS 

POINT  SOURCES 
RT  FERROALLOYS 

* 

JET  THRUST  UNITS 

BT  EXPLOSIVES 

RT  * 

JUNKYARDS 

BT  WASTE  DISPOSAL 

RT  DUMPING  GROUNDS 

GARBAGE  COLLECTION 
INCINERATORS 
LANDFILLS 
OPEN  BURNING 
OPEN  DUMPING 
TRANSFER  STATIONS 
WASTE  PROCESSING 

KAOLINITE 

BT  INORGANIC  COMPOUNDS 

RT  * 

KEY  LARGO  CORAI,  REEF  PRESERVE,  FL 
KWAJELEIN  ATOLL 


LAKES 

NT  LAKES,  SPECIFIC 

RT  WATERWAYS 

LAKES,  SPECIFIC 

SN  A COLLECTIVE  TERM  FOR  SPECIFIC  LAKES  WHICH  HAVE 

BEEN  TREATED  INDIVIDUALLY  IN  THE  REGULATIONS  AND 
DATA  BASE;  NAMES  OF  LAKES  ARE  NOT  LISTED  IN 
THE  THESAURUS, 

BT  LAKES 

LAND  ACQUISITION 

LAND  CLASSIFICATION 

BT  CLASSIFICATION 

RT  AIR  QUALITY  CLASSIFICATION 
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WAT ER  QUALITY  CLASSIFICATION 


LAND  PRESERVATION 

RT  FOREST  PRESERVATION 

LANDFILLS 

SN  SITES  FOR  DISPOSAL  OF  SOLID  WASTES  ON  LAND  BY 

COVERINC;  SITES  OR  DISPOSAL  PROCEDURES  USED  ARE 
INADEQUATE  FOR  SANITARY  DISPOSAL  OF  HAZARDOUS 
OR  PUTRESCIBLE  WASTES. 

BT  AIR  POLLUTION  SOURCES 

WASTE  DISPOSAL 
NT  SANITARY  LANDFILL 

RT  DUMPING  GROUNDS 

GARBAGE  COLLECTION 
INCINERATORS 
JUNKYARDS 
OPEN  BURNING 
OPEN  DUMPING 
TRANSFER  STATIONS 
WASTE  PROCESSING 


LEAD 

BT  AIR  POLLUTION  SOURCES 

NONFERROUS  METALS 
INORGANIC  COMPOUNDS 

NONFERROUS  METALS 
POINT  SOURCES 

NONFERROUS  METALS 

RT  * 


LIQUID  FUELS 

BT  FUELS 

NT  FUEL  OIL 

GASOLINE 
RT  COAL 

COKE 
OILS 
WOOD 

LONG  ISLAND,  NY 


LOW  EXPLOSIVES 

BT  EXPLOSIVES 

RT  * 


LUMBER 

SN  WOOD  USED  AS  A SOURCE  OF  BUILDING  MATERIAL. 
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BT  POINT  SOURCES 

RT  PULP  MILLS 

WOOD 

* 

MANGANESE 

BT  AIR  POLLUTION  SOURCES 

NONFERROUS  METALS 
INORGANIC  COMPOUNDS 

NONFERROUS  METALS 
POINT  SOURCES 

NONFERROUS  METALS 

RT  * 

MANUFACTURING 

BT  AIR  POLLUTION  SOURCES 

NT  CHEMICAL  MANUFACTURING 

RT  POINT  SOURCES 

* 

MAXIMUM  PERMISSIBLE  CONCENTRATION 

SN  TERM  USED  ONLY  FOR  RADIATION  STANDARDS. 

BT  RADIATION  STANDARDS. 

RT  MAXIMUM  PERMISSIBLE  DOSE 

MAXIMUM  PERMISSIBLE  DOSE 

SN  TERM  USED  ONLY  FOR  RADIATION  STANDARDS. 

BT  RADIATION  STANDARDS 

RT  MAXIMUM  PERMISSIBLE  CONCENTRATION 

MEASUREMENTS 

SN  TERM  FOR  MEASUREMENTS  OR  MEASUREMENT  METHODS 

REQUIRED  FOR  A PARTICULAR  POLLUTANT,  EMISSION, 
OR  EFFLUENT. 

MERCURY 

BT  AIR  POLLUTION  SOURCES 

NONFERROUS  METALS 
INORGANIC  COMPOUNDS 

NONFERROUS  METALS 
POINT  SOURCES 

NONFERROUS  METALS 

RT  * 

METHYLENE  BLUE 

BT  ORGANIC  COMPOUNDS 

RT  * 

MICA 
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RT 

RT 

MIDWAY  ISLANDS 
MISTS 

BT 

RT 


MIXING  ZONE 
SN 

RT 

MONITORING 

NT 

NICKEL 

BT 


RT 

NITRATES 

RT 


NITRIC  ACID 
BT 


RT 


NITRITES 

RT 


NITROGEN 

BT 

NT 


INORGANIC  COMPOUNDS 

★ 


AIRBORNE  PARTICULATES 

ASH 

DUST 

FUMES 

SMOKE 


AN  AREA  OF  WATER  TO  WHICH  EFFLUENTS,  INCLUDING  HEAT, 
MAY  BE  DISCHARGED  FOR  DISPERSAL. 

EFFLUENTS 


STACK  MONITORING 


AIR  POLLUTION  SOURCES 

NONFERROUS  METALS 
INORGANIC  COMPOUNDS 

NONFERROUS  METALS 
POINT  SOURCES 

NONFERROUS  METALS 

* 


NITRITES 

NITROGEN 


INORGANIC  COMPOUNDS 
ACIDS 
NITROGEN 
NITROGEN  OXIDES 
SULFURIC  ACID 


NITRATES 

NITROGEN 


INORGANIC  COMPOUNDS 
NITRIC  ACID 
NITROGEN  OXIDES 

NITROGEN  DIOXIDE 
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24 


RT  NITRATES 

NITRITES 
* 


NITROGEN  DIOXIDE 

BT  INORGANIC  COMPOUNDS 

NITROGEN 

NITROGEN  OXIDES 


NITROGEN  OXIDES 


BT 

INORGANIC  COMPOUNDS 
NITROGEN 

NT 

NITROGEN  DIOXIDE 

RT 

NITRIC  ACID 

OXIDANTS 

NOISE 

NT 

NOISE  CONTROL 

NOISE  LEVELS 

NOISE 

CONTROL 

BT 

NOISE 

RT 

NOISE  LEVELS 

NOISE  LEVELS 

BT 

NOISE 

RT 

NOISE  CONTROL 

NONEXPLOSIVE  AMMUNITION 

BT  EXPLOSIVES 

RT  * 

NONFERROUS  METALS 

BT  AIR  POLLUTION  SOURCES 

INORGANIC  COMPOUNDS 
POINT  SOURCES 
NT  ARSENIC 

BARIUM 
BERYLLIUM 
CADMIUM 
CHROMIUM 
COPPER 
LEAD 

MANGANESE 

MERCURY 

NICKEL 

SILVER 

SODIUM 

ZINC 


Draft 


RT 


NUCLEAR  ENERGY 
BT 


RT 

ODORS 

OIL  SPILLS 
BT 

RT 


OIL  STORAGE 
BT 


RT 

OIL  TRANSFER 
BT 

RT 

OILS 

BT 

NT 


RT 


HAZARDOUS  MATERIALS 
SMELTERS 

* 


AIR  POLLUTION  SOURCES 
POWER  SOURCES 
POINT  SOURCES 

POWER  SOURCES 

INTERNAL  COMBUSTION  ENGINES 
STEAM  GENERATING  PLANTS 
TURBINES 


ACCIDENTS 
ORGANIC  COMPOUNDS 
OILS 

DISPERSANTS 
OIL  STORAGE 
OIL  TRANSFER 
SOLVENTS 


ORGANIC  COMPOUNDS 
OILS 

STORAGE 
OIL  SPILLS 
OIL  TRANSFER 


ORGANIC  COMPOUNDS 
OILS 

OIL  SPILLS 
OIL  STORAGE 


ORGANIC  COMPOUNDS 
OIL  SPILLS 
OIL  STORAGE 
OIL  TRANSFER 
HAZARDOUS  MATERIALS 
LIQUID  FUELS 
PETROLEUM 
REFINERIES 
SALVAGE 
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OPACITY 

RT  AIRBORNE  PARTICULATES 


OPEN  BURNING 

BT  AIR  POLLUTION  SOURCES 

WASTE  DISPOSAL 
RT  DUMPING  GROUNDS 

FIRES 

GARBAGE  COLLECTION 
INCINERATORS 
JUNKYARDS 
LANDFILLS 
OPEN  DUMPING 
TRANSFER  STATIONS 
WASTE  PROCESSING 
* 


OPEN  DUMPING 

BT  WASTE  DISPOSAL 

RT  DUMPING  GROUNDS 

GARBAGE  COLLECTION 

INCINERATORS 

JUNKYARDS 

LANDFILLS 

OPEN  BURNING 

TRANSFER  STATIONS 

WASTE  PROCESSING 


ORGANIC  CARBON 

UF  TOC 

TOTAL  ORGANIC  CARBON 
BT  ORGANIC  COMPOUNDS 

CARBON 

RT  CARBON  MONOXIDE 


ORGANIC  COMPOUNDS 

NT  ALCOHOLS 

ALDEHYDES 
CARBON 

CARBON  MONOXIDE 
ORGANIC  CARBON 

CCE 

ETHYLENE 
HYDROCARBONS 
METHYLENE  BLUE 
OILS 

OIL  SPILLS 
OIL  STORAGE 
OIL  TRANSFER 
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PHENOLS 

RT  CHEMICAL  MANUFACTURING 

OXIDANTS 

RT  CARBON  MONOXIDE 

NITROGEN  OXIDES 
PHOTOCHEMICAL  REACTIONS 
SULFUR  OXIDES 


PACIFIC  OCEAN 
RT 


COASTS 

SALINE  WATER 

WATERWAYS 

WETLANDS 


PACKAGING 

RT  CONTAINERS 

EXPLOSIVES 

RADIOACTIVE  SUBSTANCES 
STORAGE  TANKS 


PA  RTICUlJVTES 

USE  AIRBORNE  PARTICULATES 


PERMITS 

SN  LICENSES  REQUIRED  FOR  THE  CONSTRUCTION  OR  OERATION 

OF  A FACILITY  OR  THE  PERFORMANCE  OF  SOME  ACT. 


PEST  CONTROL 

BT  PESTS 

RT  HERBICIDES 

PESTICIDES 

PESTICIDES 

UF  ECONOMIC  POISONS 

INSECTICIDES 
BT  PESTS 

RT  AGRICULTURAL  POLLUTION 

HAZARDOUS  MATERIALS 
HERBICIDES 
PEST  CONTROL 

PESTS 

NT  HERBICIDES 

PEST  CONTROL 
PESTICIDES 
RT  WILDLIFE 

PETROLEUM 
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UF  CRUDE  OIL 

BT  POINT  SOURCES 

RT  COAL 

COKE 
OILS 

REFINERIES 

SALVAGE 


PH 

UF  HYDROGEN  ION  CONCENTRATION 

RT  HYDROGEN 

PHENOLS 

BT  ORGANIC  COMPOUNDS 

RT  * 

PHOSPHORUS 

BT  INORGANIC  COMPOUNDS 

RT  * 

PHOTOCHEMICAL  REACTIONS 
RT  OXIDANTS 

PLANT  LIFE 

USE  FLORA 


PLASTICS  AND  SYNTHETICS 

UF  SYNTHETICS 

BT  POINT  SOURCES 

NT  VINYL  CHLORIDES 

RT  * 


POINT  SOURCES 

SN  MANUFACTURING  POINT  SOURCE  CATEGORY;  PROCESSES 

AND  SUBSTANCES  CAUSING  WATER  POLLUTION,  FOR  WHICH 
THE  FEDERAL  GOVERNMENT  HAS  ESTABLISHED  EFFLUENT 
STANDARDS . 

NT  ASBESTOS 

BOILERS 
CEMENT  PLANTS 
CHEMICAL  MANUFACTURING 
COATINGS 
COKE  OVENS 
FEEDLOTS 
FERROALLOYS 

STEEL 

FERTILIZERS 

FURNACES 
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BLAST  FURNACES 
CUPOLAS 

CRAIN  HANDLING 

IRON 

LUMBER 

NONFERROUS  METALS 
ARSENIC 
BARIUM 
BERYLLIUM 
CADMIUM 
CHROMIUM 
COPPER 
LEAD 

MANGANESE 

MERCURY 

NICKEL 

SILVER 

SODIUM 

ZINC 

PETROLEUM 

PLASTICS  AND  SYNTHETICS 
VINYL  CHLORIDES 
POWER  SOURCES 

INTERNAL  COMBUSTION  ENGINES 
DIESEL  ENGINES 
GASOLINE  ENGINES 
NUCLEAR  ENERGY 
STEAM  GENERATING  PLANTS 
TURBINES 
PULP  MILLS 
REFINERIES 
RUBBER 
SINTERING 
RT  EFFLUENTS 

MANUFACTURING 

POTABLE  WATER 

UF  DRINKING  WATER 

POWER  SOURCES 

BT  AIR  POLLUTION  SOURCES 

POINT  SOURCES 

NT  INTERNAL  COMBUSTION  ENGINES 

DIESEL  ENGINES 
GASOLINE  ENGINES 
NUCLEAR  ENERGY 
STEAM  GENERATING  PLANTS 
TURBINES 
RT  * 


| 
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PROCESS  WASTE  WATER 

RT  EFFLUENTS 

INDUSTRIAL  WASTES 

PROPELLANT  EXPLOSIVES 

BT  EXPLOSIVES 

RT  * 

PROTECTED  SPECIES 

NT  ENDANGERED  SPECIES 

THREATENED  SPECIES 
RT  AQUATIC  LIFE 

FLORA 
WILDLIFE 

PULP  MILLS 

BT  AIR  POLLUTION  SOURCES 

POINT  SOURCES 
RT  LUMBER 

WOOD 


RADIATION  SOURCES 
RADIATION  STANDARDS 

NT  MAXIMUM  PERMISSIBLE  CONCENTRATION 

MAXIMUM  PERMISSIBLE  DOSE 

RADIOACTIVE  SUBSTANCES 

RT  HAZARDOUS  MATERIALS 

PACKAGING 
STORAGE 

TRANSPORTATION 
WASTE  DISPOSAL 

RECORD  KEEPING 

SN  REQUIRED  RECORDING  AND  FILING  OF  DATA  FOR  POSSIBLE 

INSPECTION  BY  A SUPERVISING  AGENCY. 

RT  REPORTING  REQUIREMENTS 

REFINERIES 

BT  POINT  SOURCES 

RT  OILS 

PETROLEUM 

* 


REFUSE 

UF  SOLID  WASTE 

RT  WASTE  DISPOSAL 
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RENDERING 

RT  AGRICULTURAL  POLLUTION 

REPORTING  REQUIREMENTS 

SN  REQUIREMENTS  THAT  REPORTS  BE  FILED  WITH  A 

SUPERVISORY  AGENCY,  EITHER  AS  A PART  OF  NORMAL 
OPERATIONS  OR  AFTER  AN  ACCIDENT. 

RT  RECORD  KEEPING 

RESERVOIRS 

USE  IMPOUNDMENTS  OF  WATER 

RIVERS 

UF  STREAMS 

NT  RIVERS,  SPECIFIC 

RT  WATERWAYS 

RIVERS,  SPECIFIC 

SN  A COLLECTIVE  KEYWORD  FOR  SPECIFIC  RIVERS  WHICH 

HAVE  BEEN  TREATED  INDIVIDUALLY  IN  THE  REGULATIONS 

AND  DATA  BASE;  NAMES  OF  RIVERS  ARE  NOT  LISTED 
IN  THE  THESAURUS. 

BT  RIVERS 

ROADS 

BT  AIR  POLLUTION  SOURCES 

INDIRECT  SOURCES 

RT  AIRPORTS 

ROCKET  AMMUNITION 

RT  EXPLOSIVES 

RT  * 

ROCKET  MOTORS 

BT  EXPLOSIVES 

RT  * 

RUBBER 

BT  POINT  SOURCES 

RT  * 

SALINE  WATER 

RT  ATLANTIC  OCEAN 

COASTS 

PACIFIC  OCEAN 
TIDAL  WATER 
WETLANDS 

SALTS 
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OILS 

PETROLEUM 


SANITARY  LANDFILL 

SN  SITES  FOR  NONPOLLUTING  DISPOSAL  OF  SOLID  WASTES 

ON  THE  LAND,  BY  SPREADING  WASTES  IN  LAYERS, 
COMPACTING  THEM  TO  THE  SMALLEST  PRACTICAL  VOLUME, 
AND  COVERING  THEM  WITH  SOIL  DAILY. 

BT  AIR  POLLUTION  SOURCES 

LANDFILLS 
WASTE  DISPOSAL 

LANDFILLS 


SCUM 


SEAPORTS 

RT  BAYS 

COASTS 


SEDIMENTATION 

RT  DEPOSITION 

EROSION 

SETTLEABLE  SOLIDS 


SEDIMENTS 

USE  SETTLEABLE  SOLIDS 

SELENIUM 

BT  INORGANIC  COMPOUNDS 

RT  * 

SEPARATION  PROCESSES 

BT  AIR  POLLUTION  SOURCES 

RT  * 

SETTLEABLE  SOLIDS 

UF  SEDIMENTS 

RT  DEPOSITION 

DISSOLVED  SOLIDS 
EROSION 
SEDIMENTATION 
SUSPENDED  SOLIDS 


SEWAGE 

BT  EFFLUENTS 

RT  HAZARDOUS  MATERIALS 

INDUSTRIAL  WASTES 
SLUDGE 


77 


Draft 


33 


SEWAGE  DISPOSAL 

NT  SEWER  SYSTEMS 

WATER  TREATMENT  WORKS 


SEWER  SYSTEMS 

SN  NETWORKS  OF  SEWER  PIPES. 

BT  SEWAGE  DISPOSAL 

ER  WATER  TREATMENT  WORKS 


SHELLFISH 

USE  FISH 


SILICATES 

BT  INORGANIC  COMPOUNDS 

NT  ASBESTOS 

FELDSPARS 

RT  * 

SILVER 

BT  AIR  POLLUTION  SOURCES 

NON FERROUS  METALS 
INORGANIC  COMPOUNDS 

NONFERROUS  METALS 
POINT  SOURCES 

NONFERROUS  METALS 

RT  * 

SINTERING 

BT  AIR  POLLUTION  SOURCES 

POINT  SOURCES 

RT  * 

SLUDGE 

RT  HAZARDOUS  MATERIALS 

SEWAGE 

SMELTERS 

BT  AIR  POLLUTION  SOURCES 

RT  FERROALLOYS 

NONFERROUS  METALS 


SMOKE 

BT  AIRBORNE  PARTICULATES 

RT  ASH 

DUST 
FUMES 
MISTS 
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I 

J 


SODIUM 

BT  AIR  POLLUTION  SOURCES 

NONFERROUS  METALS 
INORGANIC  COMPOUNDS 

NONFERROUS  METALS 
POINT  SOURCES 

NONFERROUS  METALS 

SOLID  WASTE 

USE  REFUSE 

SOLVENTS 

RT  DISPERSANTS 

HAZARDOUS  MATERIALS 
OIL  SPILLS 

SPRAYING 

BT  AIR  POLLUTION  SOURCES 

RT  COATINGS 


STACK  MONITORING 

SN  CONTINUOUS  MEASUREMENT  OF  STACK  EMISSIONS. 

BT  MONITORING 

RT  STACK  TESTS 


STACK  TESTS 

SN  OCCASIONAL  MEASUREMENTS  OF  STACK  EMISSIONS. 

BT  TESTS 

RT  STACK  MONITORING 


STARTER  CARTRIDGES 

BT  EXPLOSIVES 

RT  * 

STEAM  GENERATING  PLANTS 

BT  AIR  POLLUTION  SOURCES 

POWER  SOURCES 
POINT  SOURCES 

POWER  SOURCES 

RT  INTERNAL  COMBUSTION  ENGINES 

NUCLEAR  ENERGY 
TURBINES 


STEEL 

BT  AIR  POLLUTION  SOURCES 

FERROALLOYS 
POINT  SOURCES 

FERROALLOYS 


Draft 
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STOCKPI  LES 

SN  SUPPLIES  OF  MATERIALS  STORED  IN  THE  OPEN,  WHICH 

COULD  CAUSE  FUGITIVE  IHIST. 

BT  AIR  POLLUTION  SOURCES 

RT  * 

STORAGE 

NT  OIL  STORAGE 

RT  EXPLOSIVES 

RADIOACTIVE  SUBSTANCES 


STORAGE  TANKS 

RT  CONTAINERS 

PACKAGING 


STREAMS 

USE  RIVERS 


SULFATES 

RT  SULFUR 

SULFITES 

RT  SULFUR 

SULFUR 

BT  INORGANIC  COMPOUNDS 

NT  ALKYL  BENZENE  SULFONATES 

SULFUR  OXIDES 

SULFUR  DIOXIDE 
SULFURIC  ACID 
RT  SULFATES 

SULFITES 

• 

* 


SULFUR  DIOXIDE 

BT  INORGANIC  COMPOUNDS 

SULFUR 

SULFUR  OXIDES 


SULFUR  OXIDES 
BT 


INORGANIC  COMPOUNDS 
SULFUR 
SULFUR  DIOXIDE 
ALKYL  BENZENE  SULFONATES 
OXIDANTS 
SULFURIC  ACID 
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BT  INORGANIC  COMPOUNDS 

ACIDS 
SULFUR 

RT  ALKYL  BENZENE  SULFONATES 

NITRIC  ACID 
SULFUR  OXIDES 

SUSPENDED  SOLIDS 

RT  DISSOLVED  SOLIDS 

SETTLEABLF,  SOLIDS 

SYNTHETICS 

USE  PLASTICS  AND  SYNTHETICS 

TASTE 

TEMPERATURE 

RT  THERMAL  POLLUTION 

TESTS 

NT  STACK  TESTS 

THERMAL  POLLUTION 

RT  EFFLUENTS 

TEMPERATURE 

THREATENED  SPECIES 

BT  PROTECTED  SPECIES 

RT  ENDANGERED  SPECIES 

TIDAL  WATER 

SN  WATER  AFFECTED  BY  THE  TIDES;  WATERS  ARE  OF  VARYING 

SALINITY. 

NT  ESTUARIES 

RT  COASTS 

SALINE  WATER 
WETLANDS 

TOC 

USE  ORGANIC  CARBON 

TOTAL  ORGANIC  CARBON 

USE  ORGANIC  CARBON 

TOXIC  SUBSTANCES 

SN  TERM  USED  IF  A SPECIFIC  TOXIC  SUBSTANCE  IS  NOT 

LISTED  IN  THE  ARSTRACT  AND/OR  THESAURUS. 

RT  HAZARDOUS  MATERIALS 
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TRANSFER  STATIONS 

SN  SUPPLEMENTAL  TRANSPORTATION  FACILITIES  USED  TO 

TRANSFER  SOLID  WASTES  FROM  SMALL  VEHICLES  TO 
LARGER  ONES. 

BT  WASTE  DISPOSAL 

RT  DUMPING  GROUNDS 

GARBAGE  COLLECTION 

INCINERATORS 

JUNKYARDS 

LANDFILLS 

OPEN  BURNING 

OPEN  DUMPING 

WASTE  PROCESSING 


TRANSPORTATION 

RT  EXPLOSIVES 

RADIOACTIVE  SUBSTANCES 


TURBIDITY 

TURBINES 

BT  AIR  POLLUTION  SOURCES 

POWER  SOURCES 
POINT  SOURCES 

POWER  SOURCES 

RT  INTERNAL  COMBUSTION  ENGINES 

NUCLEAR  ENERGY 
STEAM  GENERATING  PLANTS 


URBAN  AREAS 

UF  CITIES 

NT  URBAN  AREAS,  SPECIFIC 


URBAN  AREAS,  SPECIFIC 

SN  A COLLECTIVE  KEYWORD  FOR  SPECIFIC  UR RAN  AREAS 

WHICH  HAVE  REEN  TREATED  INDIVIDUALLY  IN  THE 

REGULATIONS  AND  DATA  RASE;  NAMES  OF  CITIES 
ARE  NOT  LISTED  IN  THE  THESAURUS. 

UF  CITIES 

BT  URBAN  AREAS 


VARIANCE 

SN  LICENSE  TO  ENGAGE  IN  AN  ACT  CONTRARY  TO  THE  RULE. 

VEHICLES 

BT  AIR  POLLUTION  SOURCES 

RT  AIRCRAFT 

INTERNAL  COMBUSTION  ENGINES 
WATERCRAFT 
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VINYL  CHLORIDES 

BT  CHLORIDES 

POINT  SOURCES 

PLASTICS  AND  SYNTHETICS 

VOLATILE  SUBSTANCES 

R i HAZARDOUS  SUBSTANCES 

WAKE  ISLAND 

WASTE  DISPOSAL 

NT  DUMPING  GROUNDS 

GARBAGE  COLLECTION 
INCINERATORS 

CONICAL  BURNERS 
JUNKYARDS 
LANDFILLS 

SANITARY  LANDFILL 
OPEN  BURNING 
OPEN  DUMPING 
TRANSFER  STATIONS 
WASTE  PROCESSING 
RT  RADIOACTIVE  SUBSTANCES 

REFUSE 

WASTE  PROCESSING 

SN  REFUSE  TREATMENT  METHODS,  INCLUDING  SHREDDING, 

BALING,  RECYCLING,  AND  COMPOSTING. 

BT  WASTE  DISPOSAL 

RT  DUMPING  GRQUNDS 

GARBAGE  COLLECTION 

INCINERATORS 

JUNKYARDS 

LANDFILLS 

OPEN  BURNING 

OPEN  DUMPING 

TRANSFER  STATIONS 

WATER  POLLUTION  CONTROL 

SN  DEVICE  OR  PROCEDURE  USED  TO  LIMIT  THE  RELEASE  OF 

EFFLUENTS  INTO  THE  WATER. 

WATER  DUALITY  CLASSIFICATION 

BT  CLASSIFICATION 

RT  AIR  QUALITY  CLASSIFICATION 

LAND  CLASSIFICATION 
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WATER  QUALITY  STANDARDS 

RT  EFFLUENT  STANDARDS 


WATER  RIGHTS 

SN  THE  RIGHT  TO  DRAW  WATER  FROM  A SOURCE,  INCLUDING 

GROUNDWATER  SOURCES. 


WATER  TREATMENT  WORKS 

SN  SEWAGE  TREATMENT  FACILITIES. 

BT  SEWAGE  DISPOSAL 

RT  SEWER  SYSTEMS 


WATERCRAFT 

RT  AIRCRAFT 

VEHICLES 


WATERWAYS 

SN  BODIES  OF  WATER  USED  FOR  WATERCRAFT  NAVIGATION. 

RT  ATLANTIC  OCEAN 

CHANNELS 
LAKES 

PACIFIC  OCEAN 
RIVERS 

WETLANDS 

RT  ATLANTIC  OCEAN 

COASTS 

PACIFIC  OCEAN 
SALINE  WATER 
TIDAL  WATER 


WILDLIFE 

RT  AQUATIC  LIFE 

Fl.ORA 
PESTS 

PROTECTED  SPECIES 

WOOD 

BT  FUELS 

KT  COA1, 

COKE 

FOREST  PRESERVATION 
LIQUID  FUELS 
LUMBER 
PULP  MILLS 

ZINC 

BT  AIR  POLLUTION  SOURCES 

NONFERROUS  METALS 
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INORGANIC  COMPOUNDS 

NONFERROl'S  METALS 
POINT  SOURCES 

NONFERROUS  METALS 

RT  * 

* CHECK  THE  BROADER  TERMS  FOR  A LIST  OF  POTENTIALLY  RELATED  TERMS 


r 


c 

Appendix  C - Source  Code  and  Subroutines 


l 


i 


REPAIR 


Repair  updates  the  laws. toe  file  for  CELDS,  creates  and/or  adds 
to  the  isol  files,  and  performs  minor  error  checking  functions  on  the 
laws  files. 


Arguments : 


Main  variables: 


< f names> 


If  isol  files  are  to  be  created 

for  laws  files  to  be  repaired 

(any  number  of  laws  files  may  be  named) 


acc:  current  accession  number 

agy:  file  descriptor  of  agy.isol  file 

arge:  number  of  arguments  with  procedure  was  called 

argnum:  argument  number  of  file  undergoing  repair 

argstart:  argument  number  of  first  file  to  undergo  repair 

argv  array  of  pointers  to  arguments 

att  file  descriptor  of  att.isol  file 

bf  buffer  for  reading  from  laws  file 

card  copy  of  line  read  from  laws  file 

ch_this_fil:  running  total  of  characters  read  from  laws  file 

chars:  number  of  chars  read  by  current  read 

data:  file  descriptor  of  file  undergoing  repair 

gps:  file  descriptor  of  gps.isol  file 

installing:  a flag  set  to  1 if  toe  file  is  to  be  modified, 

otherwise  set  to  0. 

iobuf:  buffer  used  to  read  records  from  the  laws  files 

isols:  a flag  set  to  1 if  isol  files  are  to  be 

produced,  otherwise  set  to  0. 
top:  file  descriptor  of  top. isol  file 

mec:  file  descriptor  of  mec.isol  file 

p:  pointer  into  read  buffer  (bf) 

prev_acc:  previous  accession  number 

prev_stop:  previous  stop  code 

prev_type:  previous  field  number 

q:  pointer  into  copy  of  line  read  (card) 

stop:  current  stop  code 

toe:  file  descriptor  of  laws. toe  file 

type:  current  field  number 

type  start:  record  to  be  written  into  laws. toe  file 


ma in( arge ,a rgv)  int  arge;  char  *argv[]; 

{ 

/*  Declaration  of  variables  */ 

charbf[82],  card[82),  *ch_this_f il , iobuf [530]; 
int  acc,  agy,  argnum,  argstart,  att,  chars,  data,  gps, 
installing,  isols,  top,  mec,  prev_acc,  prev_stop, 
prev_type,  stop,  toe,  type,  type_start [ 1 3] ; 
register  char  *p,  *q; 


38 


1 


/*  Check  for  proper  calling  of  repair  */ 

if  (argc  < 2)  { print f ("USAGE : repair  <lawsf ile>\n") ; return;  > 


toe  - open("laws.toc",l) ; 

/*  If  toe  file  doesn't  exist,  then  turn  installing  off.  This 

means  that  repair  is  being  used  only  for  error-checking.  */ 
if  (toe  < 0)  installing  = 0; 
else  installing  = 1; 

/*  Set  isols  flag  */ 

iso Is  » ( *a rgv [ 1 ] ==  ? 1:0); 

if  (isols) 

{ 

mec  = open("mec.isol", 1) ; 
if  (mec  < 0) 

/*  create  all  of  the  isol  files  */ 

{ 

mec  = creat("mec. isol", 0666) ; 

if  (mec  < 0)  (perrorC'c resting  isol  files");  return;} 

gps  = creatC'gps. isol", 0666) ; 

agy  = creat("agy. isol", 0666) ; 

att  = creat("att. isol", 0666) ; 

top  - creatC'top. isol", 0666) ; 

> 

else 

/*  Files  already  exist,  append  to  end  */ 

{ 

seek(mec ,0, 2) ; 

gps  = open ("gps. isol" , 1) ; 

seek(gps,0,2) ; 

agy  =>  open("agy.isol",  1) ; 

seek(agy  ,0 , 2) ; 

att  - open("att .isol" , 1 ) ; 

seek(att ,0, 2) ; 

top  = open("top.isol" , 1) ; 

seek( top ,0 , 2) ; 

} 

> 

/*  Set  argstart  to  argument  number  of  first  file  */ 
argstart  = (isols  ? 2:1); 

/*  Now,  loop  for  each  file  to  be  repaired  (up  to  argc)  */ 
for  (argnum  = argstart;  argnum  < argc;  argnum++) 

{ 

/*  Open  laws  file  to  be  repaired  */ 

data  = gopen( a rgv [argnum] ,&iobuf) ; 
if  (data  < 0)  (perror("repair") ; return;} 
printf ("repairing  %s\n" ,a rgv (a rgnum] ); 
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/*  Initialize  parameters  */ 
p * argv(acgnuro]  + 5; 
type_start [0]  » atoi(p); 
prev_stop  •=  2; 
prev_type  » 12; 
prev_acc  « type_start [0] ; 
ch_this_fil  ” 0; 

/*  Now,  read  and  check  data  until  entire  file  has  been  read  */ 
do 
{ 

/*  Read  1 line  from  file  into  bf  */ 
chars  » ggets(bf ,&iobuf) ; 

/*  Set  pointers,  p and  q */ 

P - &bf  [0] ; 
q - &card  [0] ; 

/*  Copy  bf  into  card  */ 

while  (*q++  - ; 

/*  Convert  stop  code,  field  number,  and  acc  number  to  integer  */ 
bf [ 10]  = 0; 
stop  » atoi(&bf [8] ) ; 
bf  [8]  = 0; 

type  **  atoi(&bf  [5]  ) ; 
bf [51  - 0; 
acc  « atoi(&bf [0] ) ; 

if  (acc  !»  prev_acc  | | chars  <*  0) 

/*  Then  this  is  either  a new  law  or  an  error  */ 

{ 

if  (acc  < prev_acc  &&  chars  > 0)  printf("bad  acc  :/!!s\n"  .card) ; 
if  (installing) 

( 

lseek(toc,  (prev_acc  * 26.0)); 
write(toc,type_start,26) ; 

> 

> 

/*  Check  for  end  of  file  */ 

■ if  (chars  <=  0)  break; 


if  (type  !=  prev_type) 

/*  Then  this  is  a new  field  (and  maybe  a new  law)  */ 

{ 

if  (type  !=*  (prev_type  + 1)  &&  type  !=  1) 
printf("bad  type : Xs\n" .card) ; 
if  (type  »=  1 &&  (prev_stop  !»  2 ||  prev_type  !*  12)) 
printf("bad  f ldl :%s\n" ,card) ; 
if  (stop  -»  2 &&  type  !“  12) 
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printfC'bad  stop:%s\n" .card) ; 
if  (prev_stop  < L)  printfC'bad  stop:Zs\n" .card) ; 
if  (type  >»  1 &&  type  <*  12)  type_start [ type]  = ch_this_fil; 
else  printfC'bad  type : %s\n"  ,ca  rd) ; 

> 


if  (isols) 

/*  Then  add  to  isol  files  */ 

( 

/*  Replace  nul  at  end  of  card  with  a newline  */ 
card[chars  - 1]  » 012; 


swi tch( type) 

{ 


case  5: 
case  b: 
case  7: 


b reak ; 
break; 


wr ite(mec, card .chars) ; 
write(gps, card, chars)  ; 
if  (type  !»  prev_type) 
write(agy, card, chars) ; break;, 
case  11:  write(att .card .chars) ; break; 
case  12:  write( top, card, chars) ; break; 
default:  break; 

> 


> 


/*  Change  this  card  to  previous  card  */ 
prev_stop  - stop; 
prev_type  = type; 
prev  acc  « acc; 


/*  Add  characters  read  to  running  total  */ 
ch_this_fil  =*+  chars; 


> while  (chars  > 0) ; 


/*  Close  laws  file  */ 
close(data) ; 

> 


/*  Close  all  open  files  */ 

if  (installing)  close(toc); 
if  (isols) 

( 

c lose(mec) ; 
close(gps) ; 
close(agy) ; 
close(att) ; 
close( top) ; 

> 


) 


J 
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Appendix  D - The  Make_Search  Subroutine 


/* 


MAKE  SEAR  C H 


Make_9earch  takes  an  "alpha"  file  for  a given  field  and  creates 
the  search  file  for  that  field. 


Arguments: 


mec,  gps,  agy,  key,  or  att 


Main  variables: 

alpha: 
bf : 

collisions: 
eof : 

f irst_hash: 
hash_num : 
hash_table : 
i : 

iobuf : 


laws : 

list_f ile: 
loc_in_laws 
old_value : 
p: 

q: 

v: 

val_f  ile: 
value  num: 


file  descriptor  for  alpha  file 

buffer  used  for  reading  from  alpha  file 

total  number  of  hash  collisions 

end-of-file  indicator 

actual  hash  number  for  value 

hash  number  incremented  to  avoid  collision 

array,  4011  long 

counter 

structure  used  for  reading  from  alpha  file, 
it  is  of  the  shape  required  by  ggets. 
the  ggets  routines  are  the  only  ones  that 
touch  these  variables, 
count  of  laws  with  the  current  value 
file  descriptor  for  list  file 
list:  start  of  current  law  list  in  list  file 

copy  of  last  value  read 
pointer  into  bf 
pointer  into  old_value 
structure  of  shape  val  record 
file  descriptor  for  val  file 


*/ 


/^include  "search.!" 

main(argc,argv)  int  argc;  char  *argvU; 

{ 

/*  Declaration  of  variables  */ 

char  bf[122),  old_value [64] , *p,  *q; 

int  alpha,  collisions,  eof,  first  hash,  hash_num, 

hash_table[hash_size] , i,  law[2000] , laws,  list_file, 
loc_in_laws_list,  val_file,  value_num; 
struct  iostru  { 

int  gfildes; 
char  *gnextp; 
char  *gstop; 
int  geof; 
char  gdbuf (513] ; 

> iobuf; 

struct  val  record  v; 


/*  Check  for  proper  calling  of  make_search  */ 
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If  (argc  !**  2) 

{ 

printf  ("USAGE:  make_search  <f  ield_name>\n") ; 
return; . ...  . 

> 

printf ("making  search  file  for  field  Zs\n" ,a rgv [ 1 ] ) ; 

concat (argv [ 1 ] .".alpha"  ,bf ) ; 

/*  Open  appropriate  alpha  file  */ 
alpha  » gopen(bf ,&iobuf ) ; 

if  (alpha  < 0)  { perror( "mksrch(oal) ") ; return;} 

concat (argv[ l ] ,".val",bf); 

/*  Create  appropriate  val  file  */ 
val_file  * c reat(bf ,0666) ; 

if  (val_file  < 0)  (perror("mksrch(cva)") ; return;} 

concat (argv [ 1 ] . list" ,bf ) ; 

/*  Open  appropriate  list  file  */ 

list_file  = c reat(bf ,0666) ; 

if  (list_file  < 0)  (perror("mksrch(cli)") ; return;} 

/*  Zero  out  hash  table  and  save  room  in  val  file  */ 

for  (i  » 0;  i<  hash_slze;  i++)  hash_tab le [ i)  = 0; 
write(val_f ile,hash_table,  hash_size  * 2); 

/*  Initialize  counters  */ 
value_num  - 0; 
collisions  = 0; 
loc_in_laws_l i st  ••  0; 

/*  Read  first  line  from  alpha  into  bf  */ 
eof  - ggets(bf ,&iobuf) ; 

if  (eof  <»  0)  (perror("mksrch( ral)") ; return;} 

/*  Now,  repeat  until  end-of-file  is  reached  */ 
while  (eof  > 0) 

( 

/*  copy  the  value  into  old_value  */ 
p = &bf [10] ; 
q = old_value; 
while(*q-H-  - *p++) ; 

/*  Zero  out  the  unused  part  of  val  record  */ 
while  (q  < &old_value[63] ) *q++  - 0; 

/*  Initialize  laws  counter  */ 
laws  = 0; 

/*  Repeat  as  long  as  value  remains  the  same  */ 


95 


while  (eof  > 0 &&  compar(&bf [ in] ,old_value)  -■  0) 

{ 

/*  Convert  accession  number  to  Integer  and  put  In  laws  */ 
bf [5]  - 0; 

law[laws++]  » atoi(&bf [0] ) ; 

/*  Read  the  next  record  */ 

eof  » ggets(bf ,&iobuf) ; 

> 

/*  Mark  end  of  law  list  with  19999  */ 
lawllaws++]  = 19999; 

/*  Write  list  of  laws  into  list  file  */ 
write( list_f lie, law,  laws  <<  1); 

/*  Compute  hash  number  */ 

hash_num  = hash(old_value)  X max_hash_num ; 
first_hash  = hash_num; 

/*  Add  1 as  long  as  this  hash_num  already  exists  */ 
while (hash_table [hash_nura]  !=  0) 

{ 

collision s++; 
hash_num-H-; 

> 

/*  Print  message  for  collisions  */ 
if  (first_hash  !=  hash_num) 

printf  ("slide  7,d  to  2d\ n" , f i rst_hash,hash_num) ; . 

/*  Put  value_nun  into  slot  in  the  hash  table  */ 
hash_table [ hash_num]  « ++value_num; 

/*  Print  insertion  message  */ 

printf ("75d  at  %5d : %s\n" , laws,hash_num ,old_value) ; 

/*  Copy  this  value  into  val  record  array  */ 
p = old_value; 
q = v. value; 

while  (p  < &old_value[63] ) *q++  * *p++; 

/*  Set  first_law  to  beginning  of  law  list  */ 
v.first_law  = loc_in_laws_list; 

/*  Write  val_record  into  val  file  */ 
write(val_f  ile,&v,64) ; 

/*  Adjust  loc_in_laws_list  */ 

loc_in_laws_list  «+  laws; 
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/*  Go  to  beginning  of  file  and  write  hash  table  */ 
seek(val_f lie,  0,  0); 

write( val_f  ile,hash_table ,hash_size  * 2); 

/*  Close  all  open  files  */ 
close(alpha) ; 
close( llst_f lie) ; 
close(val_f  lie) ; 

/*  Print  out  total  statistics  */ 

printf("  total  collisions  » %d\n"  .collisions) ; 
printf("  unique  values  * Zd\n" ,value_num) ; 
printf ("  last  list  word  - %d\n" ,loc_ln_laws_list) ; 

) 


\ 
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/*  H I F.  R 

Hier  put  in  the  hierarchy  of  terms  for  CKLDS.  It  reads  the  file 
"key.hler"  and  constructs  the  hierarchical  terms. 

*/ 

//include  "search. i" 

/*  Global  variables  */ 

int  loc_in_law_list , val_num; 
int  hash_table [hash_size] ; 
int  data,  list,  nlist,  nval,  val; 
char  iobuf [600] : 
struct  val_record  v; 

main( ) 

{ 

/*  Declaration  of  variables  */ 

int  i,  first,  flag,  new[max__laws]  , old [max_laws] ; 
int  *o,  *n; 

char  *p,  *r,  rvalue[63]; 
char  *q; 

debugging  = 0; 

/*  Open  files  */ 

data  = gopen("/cerl/celds/key .hier" ,iobuf) ; 
if(data<0){perror("open(key.hier)") ; return;) 
list  = open("/cerl/celds/top.list",0) ; 
if ( list<0) {perror("open( top. list") ; return ;) ; 
val  = open("/cerl/celds/top.val",0) ; 
if(val<=0){perror("open(top.val)") ; return; > 
if  (debugging)  printf ("Files  are  open\n") ; 

/*  Create  new  files  */ 

nval  « creat("/cerl/celds/kcy.val",0bA4) ; 
if(nval  <*  0)  (perror("c  re;ft(key  .val) ");  return;  > 
nlist  - creat("/cerl/celds/key. list", 0644) ; 
if(nlist  <»  0)(perror("crcat( key .list)") ; return; > 
if(debugging) printf ("Files  are  created\n"); 

/*  Zero  out  hash  table  and  write  it  */ 

for  (i«0;  i<hash_size;  i++)  hash_table [ i]  = 0; 

write (nval ,hash_table ,hash_size*2) ; 

val_num  » 0; 

loc_in_law_list  = 0; 

old [0]  - 0; 

/*  Now  we're  all  set  to  begin  */ 
first  * 1; 

while(ggets( rvalue, &iobuf) ) 

{ 
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r * rvalue; 
if  (*r  — ' 

{ 

terminate(old) ; 

/*  Zero  out  v. value  */ 

for  (i-0;  i<62;  i++)  v. valued]  ■ 0 

/*  Fill  "old"  array  */ 

fill(old,&rvalue(l] ) ; 

/*  Fill  v. value  with  this  term  */ 
p * &v. value; 
r - &rvalue[l] ; 
while(*p-H-  - *r4-+); 

first  - 0; 

> 

else 

{ 

flag  « f ill(new,&rvalue(0] ) ; 
if  (flag  > 0)  or(old,new); 

} 

> 

terminate(&old) ; 

/*  Put  final  write  here  */ 

close(val);  close(list);  close(nval);  close(nlist) ; 
nval  - open("/cerl/celd8/key.val",0644) ; 
write(nval ,hash_table ,hash_size*2) ; 
c lose( nval) ; 

> 

/**/ 

terminate(old)  int  old[]; 

( 

/*  Declaration  of  variables  */ 
int  hash_num,  i,  *p; 

/*  Check  for  nul  list  */ 

if(old[0]  -=  0 | | old [0]  --  19999)  return; 

/*  Find  slot  in  val_file  */ 

hash_num  « hash(v .value)  X max_hash_num ; 
if(debugging)printf ("  %s  hashes  to  Zd\n" ,v. value, hash_nun 
while  (hash_table[hash_num]  !«■  0)  hash_num++; 

/*  Put  val_location  into  hash  table  */ 

hash_table [hash_num]  = ++val_num; 

/*  Write  val_record  onto  file  */ 

v.first_law  = loc_in_law_list ; 
write(nval,&v,64) ; 

/*  Now  do  the  list  file  */ 
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p **  old; 

1*0; 

while  (*p++  < 19999)  i++; 
i++; 

write(nlist,old,i*2); 
loc_in_law_list  ■+  i; 

printf("%5d  inserted  at  X.d  for  %s\n",i-l ,hash_num,v. value) ; 
return; 

} 

/**/ 

int  f i 1 1 ( laws, rvalue)  int  laws[];  char  *rvalue; 

{ 

int  number; 

/*  Declaration  of  variables  */ 

int  bf[l00],  hash_nun,  *r,  seek_location,  wrong; 
struct  val_record  x; 

/*  Calculate  hash  number  */ 

hash_num  =■  hash(  rvalue)  X max_hash_num ; 

/*  Seek  to  proper  slot  in  hash  table  — each  hash_num  takes  2 bytes  */ 
seek_location  =*  hash_num  * 2; 
seek(val,seek_location,0) ; 

/*  Read  from  val  file  */ 
read(val,bf ,200) ; 

/*  Point  r to  beginning  of  record  read  */ 
r =■  &bf  [0]  ; 

/*  Initialize  wrong  to  be  true  */ 
wrong  = 1 ; 

while  (*r) 

/*  If  *r  is  zero,  then  this  hash  number  contains  a zero  in  the  table  */ 

{ 

/*  Locate  record  with  this  hash  number  */ 

seek_location  = ((*r  * 64)  + val_table_start) ; 
seek(val,seek_location,0) ; 
read(val ,&x,64) ; 

/*  Compare  fvalue  with  the  value  in  the  val  file  */ 
wrong  = compar(x. value, rvalue) ; 
if(debugging)printf ("compar  %s  to  %s\n" ,x. value, rvalue) ; 

/*  If  wrong  is  zero,  we  found  fvalue  */ 
if  (wrong  «=  0)  break; 

r++; 

> 

if  (wrong  !*  0) 

{ 
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printf ("WARNING:  Xs  — no  laws  found\n" , rvalue) ; 
ret urn (-1 ) ; 

> 

/*  Calculate  location  */ 

seek_locatlon  - x.first_law  * 2; 
seek  ( llst,seek_location,0) ; 
read( list ,laws,max_laws) ; 
return; 

> 

/**/ 

int  or(old.new)  int  old[],  new[]; 

{ 

int  result [2*max_laws] ; 
int  chars; 

register  int  *r,  *s,  *t; 

r * old; 
s - new; 

t * &result[0]  - 1; 

do 

{ 

if  (*r  < *s)  *++t  «=  *rf+;  else 
(if  (*r  — *s)  rf+; 

*++t  - *s++; > 

> while  (*t  < 19999); 

chars  = (t  - &result[0])  <<  1; 
if  (chars  > lawset_size) 

{ 

printf ("lawset  size  exceeds  %d  laws\n" , (max_laws  -1)); 
printf ("only  the  first  %d  laws  will  be  used\n" , (max_laws  -1)); 
t = & result [max_laws] ; 

*t  = 19999; 

> 

t ■ &result [0] ; 
r = old; 

while  (*t  < 19999)  *r++  = *t++; 

*r  = *t; 
return; 

> 
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: PUSH 

: Enter  start  date  and  time 
date 

: Remove  all  old  isol  files 
rm  *.isol 

: Repair  all  files  — being  careful  not  to  have  arg  list  too  long 
/cerl/programs/celds/ push_progs/obj / repai r - laws.?  laws.??  laws .[ 1 23456789] ? ? 
/cerl/programs/celds/push_progs/obj /repair  - laws.l??? 
/cerl/programs/celds/push_progs/obj/repair  - laws. 2 [0 1 234] ? ? 
/cerl/programs/celds/push_progs/ob]/ repair  - laws. 2 [56789] ?? 

: Sort  isol  files  into  alpha  files  and  execute  make_search 
sort  +0.10  +0.0  -0.5  mec.isol  -o  mec. alpha 
/cerl/programs/celds/push_progs/obj /make_search  mec 
sort  +0.10  +0.0  -0.5  gps.isol  -o  gps. alpha 

/cerl/programs/celds/ push_progs/ob] /make_search  gps 
sort  +0.10  +0.0  -0.5  agy.isol  -o  agy. alpha 

/cerl/programs/celds/push_progs/obj /make_search  agy 
sort  +0.10  +0.0  -0.5  att.isol  -o  att. alpha 

/cerl/programs/celds/ push_progs/obj /make_search  att 
sort  +0.10  +0.0  -0.5  top. isol  -o  top. alpha 

/cerl/programs/celds/ push_programs/obj /make_search  top 
: Get  rid  of  all  alpha  files 
rm  *. alpha 

/cerl/programs/celds/ push_progs/hier 
: Include  finish  date  and  time 
date 
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/* 


C E L I)  S 


Celds  Is  the  retrieval  program  for  the  celds  system. 

Arguments:  - if  celds  is  executed  with  a argument, 

then  on  termination,  "etis  is  executed. 
This  is  the  case  when  celds  is  entered 
from  etis. 

Global  variables: 
client: 
debugging: 

f ield_is_searchable: 

f ld_name : 
old_req_location: 

punctuation: 

reading_commands : 
req__location : 
request : 

requests : 
temp_f  ile_name : 
word: 

Main  variables: 

i:  counter 

p:  pointer  into  punctuation  array 

*/ 

^include  "search. i" 

nain(argc.argv)  int  argc;  char  *argv[]  ; 

{ 

/*  Declaration  of  variables  */ 
char  *p; 
int  i; 

/*  Set  a trap  for  break  */ 
signal(2 , 1 ) ; 

/*  Print  hail  message  */ 

write(2 ,"\nWelcome  to  CELDS\n\n\n" ,20) ; 
message( ) ; 

/*  Zero  out  punctuation  array  */ 
p - &punctua tion [0] ; 
for  ( i » 0 ; i<  128;  i++)  *p++  * 0; 


user  id  for  the  person  using  celds 
flag  set  to  1 for  debugging  program, 
this  causes  parameters  to  be  printed, 
array  indicating  which  of  fields  1 to  13 
are  searchable 

alphabetic  identifier  for  field 
pointer  to  previous  position  in 
request  array 

array  indicating  which  ASCII  are 
recognized  punctuation 

1 until  user  asks  to  leave  celds,  then  0 
pointer  to  current  position  in  request 
the  array  containing  the  current  line  of 
user  input 

total  number  of  celds  commands 
array  of  scratch  file  names 

the  array  containing  the  current  word,  null  term 
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/*  Fill  in  only  recognized  punctuation  */ 
punctuation [0]  ■ 1; 
punctuation [ & 0177]  - 1; 
punctuat ion [ ' | ' & 0177]  - 1; 

punctuation]','  & 0177]  * 1; 

punctuation]'"'  & 0177]  » 1; 

punctuation [' ('  & 0177]  = 1; 

punctuation]')'  & 0177]  * 1; 

punctuation]'  ' & 0177]  = 1; 

/*  Fill  in  field  name  abbreviations  */ 
fld_name[l]  * "acc"; 
fld_name]2]  - "ttl"; 
fld_name]3]  - "Hat"; 
fld_name(4]  = "ref"; 
fld_name(5]  ■ "mec"; 
f ld_nami.  [6]  =*  "gps"; 
fld_name]7]  - "agy"; 
fld_name]8]  - "bib"; 
fld_name]9]  = "abs"; 
f ld_name [ 1 0]  - "tbl"; 
fld_name[ll]  » "att"; 
fld_name[12]  = "top"; 
fld_name]13]  = "key"; 

/*  Set  flags  for  searchable  fields  */ 
f ield_is_searchable [0]  = 0; 
f ield_is_searchable[ 1 ] = 1; 
f ield_is_searchable ]2]  = 0; 
f ield_is_searchable]3]  = 0; 
f ield_is_searchable [4]  = 0; 
f ield_is_searchable[5]  = 1; 
f ield_is_searchable[6]  = 1; 
field_is_searchable[7]  = 1; 
f iel  d_is_searchable [8]  = 0; 
f ield_is_searchable f 9 ] = 0; 
f ield_is_searchable [ 1 0]  = 0; 
f ield_is_searchable [ 1 1 ] = 1; 
f ield_is_searchable [ 1 2]  = 1; 
f ield_is_sea rehab le [ 1 3]  = 1; 

/*  Initialize  everything  */ 

old_req_location  = request; 
req_location  = request; 
request [0]  = 0 ; 
word[0]  “ 0; 
requests  = 0; 

/*  Turn  debugging  off  */ 
debugging  = 0; 


J 
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/*  Get  user  id  and  put  it  into  client  */ 
client  ■ getuidO  & 0377; 


/*  Execute  this  loop  until  user  ends  celds  session  */ 
do 

< 

/*  Initialize  temp_file  name  to  "celds_tempa"  */ 
concat("celds_temp" ,"a" ,temp_f ile_name) ; 

/*  Set  trap  for  quit  */ 
signal(2, 1) ; 

/*  Set  reading_commands  to  true  */ 
reading_conmands  » 1 ; 

/*  Get  the  next  command  */ 
command ( ) ; 


/*  Increment  number  of  requests  */ 
re.quests-H-; 

> while  ( reading_commands) ; 


/*  Remove  all  of  the  temp  files  */ 

cone at ("celds_temp" ,"a" , temp_f  ile_name) ; 
while  ( temp_f ile_name [1 0]  < 'k') 

{ 

unlink( temp_f  ile_name) ; 
temp_f ile_name [ 10]  *+  1; 

> 

unlink("current_laws")  ; 
unlink("previous_laws") ; 


/*  Print  out  summary  statistics  */ 

/*  Print  farewell  */ 

printfC'Good  bye  from  CELOSNn") ; 


/*  Check  whether  to  execute  etis  */ 

if  (compar(argv[l] ==  0)  execl("/cerl/etis" ,"et 

} 
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^include  "search. 1" 

/*  A R O K T K K 

Ahorter  is  the  interrupt  procedure  that  Rets  called  when  the 
rubout,  del,  or  break  key  is  pressed.  This  procedure  is  only  active 
during  list,  print,  and  show  verbs.  At  all  other  tines,  those  keys  are 
ignored. 

Global  variables:  (see  list  for  expr.c) 

reading_commands : shorter  modifies  "reading  commands" 

*/ 

int  *aborter(){ 
read  ing_c  omnia  nds  = 2; 
signal(2 .aborter) ; 
return; 


> 


0 

^include  "search. i" 

/*  AND 


And  takes  two 

lists  of  law  numbers  and  logically  "ands" 

the  two  into  a 

third  list,  i.e.  it  saves  law  numbers  that  occur 

in  both  lists. 

Arguments 

first 

file  descriptor  of  file  containing 
first  list  of  law  numbers 

second 

file  descriptor  of  file  containing 
second  list  of  law  numbers 

Returns 

fil 

file  descriptor  of  file  containing 
the  "anded"  list 

And  variables: 

bfl; 

buffer  for  first  list 

bf  2: 

buffer  for  second  list 

chars: 

number  characters  written  into  result 

charsl : 

number  characters  read  into  bfl 

chars2: 

number  characters  read  into  bf2 

fil: 

file  descriptor  of  resultant  list 

r: 

pointer  to  result 

result : 

buffer  for  resultant  list 

s : 

pointer  to  bfl 

t : 

pointer  to  bf2 

*/ 


int  and(f  irst, second)'  int  first  .second; 

< 

/*  Declaration  of  variables  */ 

int  bf.l  (max_laws)  , bf  2 [max_laws]  , chars,  charsl , chars2,  fil, 
result [max_laws] ; 
register  int  *r,*s,*t; 

/*  Fill  bfl  and  bf2  with  law  sets  */ 

charsl  * read(first,bfl ,lawset_size) ; 
chars2  * read(second,bf2,lawset_size) ; 


Guarantee  that  there 
bfl [charsl  / 2] 
bf 2(chars2  / 2] 

is  a 19999  at  end  (paranoia) 
= 19999; 

= 19999; 

Set  up  pointers  */ 
r = bf 1 ; 
s » bf 2 ; 
t = & result [0] ; 

/*  Since  t gets  pre-incremented  the  first  one  will  be  skipped  */ 
*t  - 0; 


112 


do 


{ 

if  (*r  < *s)  r++; 
else 

{ 

if  (*r  --  *s)  *++t  - *r+-+; 
s++; 

> 

> while  (*t  < 19999); 

/*  Calculate  number  of  characters  in  result  */ 
chars  = (t  - &result[0])  <<  1; 

/*  Create  file  to  write  result  into  */ 

fil  = creat(temp_file_name,066b) ; 

if  (fil  < 0)  (perror("bool(c)") ; return( f il) ; ) 

/*  Write  result  beginning  with  result [1)  since  (0]  is  skipped  */ 
write( f il .^result [ 1 ] .chars); 

/*  Position  fil  at  beginning  of  file  (by  closing,  then  opening)  */ 
close( fil) ; 

fil  » open(temp_f ile_name,0) ; 

/*  Increment  temp_f ile_name [ 1 0]  since  we  just  made  a file  */ 
t emp_f  i 1 e_name [10]  “+  1 ; 

/*  Close  first  and  second  files  */ 
close( first) ; 
close( second) ; 

return( fil) ; 

> 
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^Include  "search. 1" 
/* 


COMMAND 


Command  parses  the  command  line  to  find  the  verb.  Any  word  that 
is  not  a verb  is  taken  to  be  a request  to  create  a new  file 
by  that  name. 

Arguments  none 

Command  variables: 
eof : 
laws: 
new: 
old: 

t ime_vector : 

*/ 

commandO 

{ 

/*  Declaration  of  variables  */ 
char  set_name [62] ; 

int  eof,  laws,  new,  old,  t ime_vector [2] ; 

if  (word[0]  «»  0) 

/*  Then  no  words  are  waiting  */ 

{ 

eof  ■ get_next_word("What  next?:"); 
if  (eof  0) 

/*  Then  cntrl-d  was  typed  */ 

< 

reading_commands  = 0; 
return; 

> 

> 

/*  Echo  command  line  if  debugging  is  turned  on  */ 

if  (debugging)  printf ("Command : '%s'\n" .word) ; 

/*  Now,  begin  compares  to  find  out  what  command  this  is  */ 
if  (compar( word, "find")  ==  0 | | compar(word,"for")  ==»  0 | | 
compar(word,"get")  ==  0) 

( 

/*  Then  this  is  a new  search  command  */ 

get_next_word(" Search  criterion? :") ; 
old  = expression( ) ; 
if  (old  < 0)  return; 

laws  * copy_list(old,"current_laws",l) ; 
close(old) ; 

printf ("%5d  laws  found\n" .laws) ; 


end  of  file  indicator 

number  of  laws  in  list 

file  descriptor  of  new  file 

file  descriptor  of  old  file 

random  number  used  for  insuring  uniqueness 

of  job  numbers  for  batch  print  requests 
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return; 

> 

/* "and"  conmand */ 

if  (conpar( word, "and")  0) 

< 

new  - open("current_laws" ,0) ; 
if  (new  < 0) 

( 

re]ect_this_word("no  laws  selected"); 
return; 

) 

get_next_word("And  what?:"); 
old  *»  exp ression( ) ; 
if  (old  < 0)  (close(new);  return;} 
old  = and(old.new) ; 

laws  * copy_list(old,"current_laws", 1) ; 
close(old) ; 

printf("%5d  laws  remain\n" , laws)  ; 
retu rn; 

> 

/* "or"  command */ 

if  (compar(word,"or")  ■»  0) 

( 

new  **  open(  "current_laws"  ,0)  ; 

if  (new  < 0)  ( reject_this_word("no  laws  selected");  return;} 

get_next_word("Or  what?:"); 

old  « expression( ) ; 

if  (old  < 0)  (close(new);  return;} 

old  » or(old,new); 

laws  « copy_list(old,"current_laws" , 1 ) ; 
close(old) ; 

printf("T5d  laws  now  selected\n" , laws) ; 
retu rn; 

} 

/* "except"  command */ 

if  (compar(  word  ."except")  =**  0) 

( 

new  = open("current__laws"  ,0)  ; 

if  (new  < 0)  { reject_this_word("no  laws  selected");  return;} 

get_next_word("Except  what?:") ; 

old  = expression( ) ; 

if  (old  < 0)  (close(new);  return;} 

old  = except(new,old) ; 

laws  » copy_list(old,"current_laws", 1) ; 
close(old) ; 

printf  ("7,5d  laws  remain\n"  , 1 aws) ; 
return; 

} 
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/* "show"  command  — — */ 

if  (compar( word, "show")  ««  0)  (show();  return;} 

/*  — — "suggest"  command */ 

if  (compar( word, "suggest")  — 0) 

{ 

printf ("\nType  comment  (end  with  cntrl-d) :\n\n") ; 

execute("mail  welsh"); 

printf ("\n") ; 

ge  t_nex  t_wo  rd  ( " " ) ; 

return; 

> 

/* "remove"  command */ 

if  (com  par  (word,  "remove")  =*=■  0 | | compar(wo  rd  ."delete")  =*=  Cl) 

{ 

get_next_wo rd("Set  names  to  delete?:"); 
while(word[0] ) 

{ 

/*  open  it  only  to  see  if  it  exists  */ 
concat("_" .word ,set_name) ; 
old  » open(set_name ,0) ; 
if  (old  < 0) 

{ 

printf("%s:  no  such  set,  unable  to  delete\n" .word) ; 

> 

else 

{ 

close(old) ; 
unlink(set_name) ; 
printf ("Xs:  deleted\n" .word) ; 

> 

get_next_word("") ; 

if  ( compar(wo rd ," ,")  ==  0)  get_next_word("More  set  names?:"); 
if  ( compa r( word , "and")  ==  0)  get_next_word("More  set  names?:"); 

return; 

> 

/* "save"  command */ 

if  (compar( word, "save")  »»  0) 

{ 

old  « open("current_laws" ,0) ; 
if  (old  < 0) 

{ 

reject_this_word("no  laws  selected"); 
return; 

> 

get_next_Wo rd("New  lawset  name?:"); 
if  (compar( word, "abort")  «=  0) 

{ 
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reject_this_word("lawset  not  saved"); 
return; 

> 

concat ,wo  rd ,set_nane) ; 

laws  - copy_list(old,set  name.O); 

close(old) ; 

printf("%5d  laws  saved\n" , laws) ; 

get_next_word("") ; 

return; 

> 

/* "make"  command */ 

If  (compar( word, "make")  -=•  0 I I compar(wo  rd,"set")  ==  0) 

{ 

get_next_word("New  lawset  name?:"); 
if  (compar( wo rd, "abort")  *■=  0) 

{ 

reject_this_word("well  if  you  insist"); 
return; 

> 

concat("_" .word ,set_name) ; 
get_next_wo rd("Search  criterion? :") ; 

if  (compar(word,"is")  = = 0)  get_next_word("Search  criterion?:"); 

if  (compar(word,"f rom")  ==  0)  get_next_word("Search  criterion?:"); 

old  = expression( ) ; 

if  (old  < 0)  return; 

laws  « copy_list(old,set_name,0) ; 

close(old) ; 

printf("%5d  laws  saved\n" , laws) ; 
old  - open(set_name ,0) ; 
copy_list(old ,"current_laws" , 1 ) ; 
close(old) ; 
return; 

> 

/* "list"  command */ 

if  (compar(wo rd,"list")  « 0) 

{ 

listerd,"") ; 
return; 

> 

/* "print"  command */ 

if  (compar( word, "print")  «»  0) 

< 

/*  Create  the  listing  in  the  line  printer  daemon's  directory, 

and  give  it  a pseudo- random  name  (to  avoid  conflicts)  */ 

t ime(  t ime_vector) ; 

concat(”/usr/lpd/celds",locv(0,time_vector[ll ) ,set_name) ; 
old  » creat(set_name,06f>6) ; 
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if  (old  < 0)  { perror("print") ; return;) 
laws  » lister(old ,set_name) ; 
close(old) ; 
return; 

> 

/* "debug"  command */ 

if  (conpar(word, "debug")  0) 

{ 

debugging  “ 1 - debugging; 
get_next_wo  rd("") ; 
return ; 

> 


/* "what"  command */ 

if  (compar(word,"what")  =°  0) 

{ 

get_next_wo  rd("Sets,  does  or  is?;"); 

if  (compar(word,"are")  ==  0)  get_next_word("Say  'the  sets':"); 
if  (compar(wo rd,"the")  ==  0)  get_next_wo rd("Say  'sets':"); 
if  (compar(word,"sets")  !=  0) 

{ 

reject_this_word("0nly  'sets'  is  available,  sorry"); 
return; 

> 

execute("ls  _*") ; 
ge  t_nex  t_wo  rd ( " " ) ; 
return; 

> 


/* "help"  command */ 

if  (compar( word, "help")  ==  0) 

< 

printf ("ve rbs  are:\n"); 

print f( "FIND, ANN, OR, EXC KPT, SAVE, HAKE, OOPS, \n") ; 

printf  ("DELETE,  SHOW,  LIST,  PR  I NT,  WHAT,  SUGGEST,  HELP,ENl)\n")  ; 

get_next_word("More  detail? :") ; 

if  (wordfO]  !=  'y')  ( get_next_word("") ; return;  ) 
begins  a new  search\n"); 
further  limits  the  previous  search\n"); 
extends  a search\n"); 
excludes  selected  laws\n") ; 
stores  the  result  of  a search\n") ; 
finds  and  saves\n") ; 
reinstates  previous  lawset\n") ; 


printf ("FIND 
printf ("AND 
printf ("OR 
printf ("EXCRPT 
printf  ("SAVF. 
printf ("MAKE 
printf ("OOPS 
printf ("\n") ; 
printf ("DELETE 
printf ("SPOW 
print  f ("LIST 
printf ("PRINT 
printf ("WHAT 


removes  a saved  lawset\n") ; 

shows  the  accession  nunbers  of  laws  found\n") ; 
summarizes  laws  on  the  terminal\n") ; 
summarizes  laws  on  high-speed  printer\n") ; 
shows  lawset  names\n") ; 
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prlntf  ("SUGGEST  to  send  n comment  to  the  nuthors  of  CEI.OS\n")  ; 

printf("HELP  shows  this  list\n"); 

printfC'ENI)  signs  the  user  off  the  system\n"); 

Ret_next_word("") ; 

return; 

> 

/*  -- — "end"  command  — — */ 

If  (compar( word, "end")  =«  0 | | compar(word,"bye")  »=  0) 

{ 

reading_commands  = 0; 
return; 

> 

/* "abort"  command */ 

if  (compar( word, "abort")  « 0) 

{ 

reject_this_word("nothing  to  abort,  all  is  cool."); 
ret u rn; 

> 

/* "oops"  command */ 

if  (compar(word,"oops")  0) 

{ 

old  = open("previous_laws" ,0) ; 

if  (old  < 0)  ( reject_this_word  ("Recovery  not  possible");  return;) 

laws  » copy_list(old,"current_laws" ,0) ; 

printf("%5d  laws  recovered\n" , laws) ; 

close(old) ; 

ge  t_nex  t_wo  rd ( " " ) ; 

return; 

> 

reject_this_word("Oh  worthy  master,  I fear  I have\nfailed  to 
} understand  your  intention 


If 

^include  "search. i" 

/* 


COPY  I,  I S T 


Copy_list  copies  a list  of  laws  from  one  file  into  another. 
All  new  lawsets  are  created  with  a temporary  name  and  are  not  copied 
until  the  whole  command  has  been  read  and  checked  for  syntactic 
correctness.  Then  copy_list  Is  called  to  transfer  the  law  list 
into  a permanent  file. 


Argument: 

mode 

if  mode  is  1 , a copy  of  what  is  in  the  "new" 
file  (if  existent)  is  put  into  "previous_laws" 
before  old  is  copied  to  new. 

new 

name  of  new  file  (copied  to) 

old 

file  descriptor  of  old  file  (copied  from) 

Returns : 

-1 

for  error  conditions 

the  number  of  laws  copied,  for  successful  calls 

Copy_list  variables: 

bf : buffer  for  reading  files 

chars:  number  of  characters  read  from  a file 
nw:  file  descriptor  of  the  new  file 

r:  pointer  into  bf 

tmp:  file  descriptor  of  a temporary  file 

*/ 

int  copy_ltst(old, new, mode)  int  old, mode;  char  *new; 

< 

/*  Declaration  of  variables  */ 

int  bf [max_laws] , chars,  nw,  *r,  tmp; 

if  (mode  = • 1) 

/*  Then  copy  "new"  to  "previous_laws"  */ 

{ 

tmp  * open(new,0); 
if  (tmp  >»  0) 

{ 

/*  Create  "previous_laws"  */ 

nw  = creat("previous_laws",  0666); 

if  (nw  < 0)  {perror("prev_laws") ; return(-l);} 

/*  Read  from  new  and  write  to  previous  */ 
chars  « read(tmp,bf , lawset_size) ; 
if  (chars  < 0 ) {perror("copy") ; return(-l);} 
write (nw,bf .chars) ; 
close( tmp) ; 
close(nw) ; 

> 

) 

/*  Create  new  file  */ 


r 


nw  - c reat (new, 0666) ; 

if  (nw  < 0)  <perror("copy") ; return(-l);} 

/*  Read  old  file  */ 

chars  - rend(old,bf , lawset_size) ; 

if  (chars  < 0)  {perror("copy") ; return(-l);) 

/*  Count  number  of  laws  */ 

bf (chars  / 2]  - 19999; 
r - bf ; 

while  (*m-  < 19999)  ; 

chars  = (r  - &b f [0] ) * 2; 
write(nw,bf .chars) ; 
c lose(nw) ; 
return( r - &bf [ 1 ] ) ; 

> 


§ 

^include  "search. 1" 
/* 


EXCEPT 


Except  takes  two  lists  of  law  numbers  and  constructs  a 
list  containing  laws  that  are  in  the  first  list  and  not  in  the 
second  list. 


Arguments  first  file  descriptor  of  file  containing 

first  list  of  law  numbers 

second  file  descriptor  of  file  containing 

second  list  of  law  numbers 

Returns  fil  file  descriptor  of  file  containing 

the  "ored"  list 


Or  variables: 

bf  l: 

bf  2 : 

chars: 

charsl : 

chars2: 

fil: 

r: 

result : 
s : 
t : 

*/ 


buffer  for  first  list 

buffer  for  second  list 

number  characters  written  into  result 

number  characters  read  into  bfl 

number  characters  read  into  bf2 

file  descriptor  of  resultant  list 

pointer  to  result 

buffer  for  resultant  list 

pointer  to  bfl 

pointer  to  bf2 


int  except( first, second)  int  f i rst .second ; 

/*  Declaration  of  variables  */ 

{ 

int  bfl [max_laws] , bf 2 [max_laws]  , chars,  charsl,  chars2,  fil, 
result [2  * max_laws] ; 
register  int  *r,*s,*t; 

/*  Fill  bfl  and  bf2  with  lawsets  */ 

charsl  **  read  ( f irs t ,bf  1 , lawset_size) ; 
chars2  » read(second,bf2,lawset_size) ; 

/*  Guarantee  that  there  is  a 19999  at  end  (paranoia)  */ 
bfl [charsl  / 2]  = 19999; 
bf2 [chars2  / 2]  = 19999; 

/*  Set  up  pointers  */ 
r » bf  1 ; 
s =*  bf2; 
t = &result [0] ; 

/*  Since  t gets  p re- incremented  the  first  one  will  he  skipped  */ 

*t  * 0; 
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while  (*r  < 19999) 

< 

if  (*r  < *s)  *++t  - *rt-+; 
else 

{ 

if  ( *r  --  *s)  r++; 
s++; 

} 

> 

*++t  =>  19999; 

/*  Calculate  number  of  characters  In  result  */ 
chars  =*  ( t - &result[0])  <<  1; 

/*  Create  file  to  write  result  into  */ 

fil  » c reat( temp_f ile_name ,0666) ; 

if  (fil  < 0)  {perror("bool(c)") ; return(-l);} 

/*  Write  result  beginning  with  result [1]  since  [0]  is  skipped  */ 
wr i te( f il ,&resul t [ 1 ] .chars); 

/*  Position  fil  at  beginning  of  file  (by  closing  and  opening)  */ 
close( f il) ; 

fil  * open( temp_f ile_name ,0) ; 

/*  Increment  temp_f il_name ( 1 0]  since  we  just  made  a file  */ 
temp_f  ile_name  ( 10]  =*+  1; 

/*  Close  first  and  second  files  */ 
close( first) ; 
close( second) ; 

return( fil); 

> 
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It 

//include  "search. i" 

/*  EXPRESSION 

Expression  is  the  routine  for  evaluating  "ors". 

It  is  evaluated  last,  after  "ands"  and  "excepts"  are  done. 

Returns  fil  a file  descriptor 

Expression  variables: 

fil:  file  descriptor 

second:  file  descriptor 

*/ 

int  expression() 

{ 

/*  Declaration  of  variables  */ 
int  fil,  second; 

/*  Call  term  to  check  for  ??  */ 

f il  = te rm( ) ; 

if  (fil  < 0)  return(fil); 

while  (conpar(  word,  "or")  — 0 ||  compa  r(wo  rd , "union")  «=  0 | | 
compar(word," | ")  ==  0) 

{ 

get_next_word("Or  what?:"); 
second  = term(); 
if  (second  < 0)  retum( second) ; 
fil  * or( fil .second) ; 

> 

return( fil) ; 

> 
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M 


If 

^include  "search. 1" 

/*  FACTOR 

Factor  is  the  routine  used  for  doing  "ands".  It  is  the 
highest  order  in  the  hierarcy,  i.e.  it  gets  done  before  "ors"  or 
"excepts"  regardless  of  which  is  on  the  line  first. 

Returns  fil  file  descriptor  to  an  open  file 

containing  the  result 

Factor  variables: 

fil:  file  descriptor 

second:  file  descriptor 

*/ 

int  factor() 

{ 

/*  Declaration  of  variables  */ 
int  fil,  second; 

/*  Call  primary  to  get  lawset  */ 
fil  = primaryO; 
if  (fil  < 0)  return(fil); 

while  (compar(word,"and")  ==  0 | I compar(word, "intersect")  — 0 | | 
conpar(word,"&")  *=  0) 

{ 

get_next_wo rd("And  what?:"); 
second  = primaryO; 
if  (second  < 0)  return( second) ; 
fil  * and( f il .second) ; 

> 

retum(  f il) ; 

> 
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^include  "search. i" 

/*  GET  SET 


Get_set  takes  a fieldname  and  value  for  that  field,  and  looks  to 
see  if  it  is  a legal  value.  Cet_set  returns  -1  for  illegal  value, 
or  a file  descriptor  to  an  open  file  if  the  value  is  included  in 
that  field. 

The  "list"  file  is  positioned  at  the  start  of  the  lawllst 
for  that  field  value. 

Arguments  fieldname  three  character  name  of  a field 

fvalue  a value  to  be  looked  up  in  that 

field 


Returns  -1  for  illegal  values 

fid  to  an  open  "list"  file 

Gct_set  variables: 

bf : buffer  used  for  reading 

filename:  name  of  file  to  be  opened 

hash_num:  hash  number  for  fvalue 

list:  file  identifier  for  list  file 

p:  pointer  used  to  build  filenames 

r:  pointer  to  record  read  from  hash  table 

seek_location : location  to  seek  to 

v:  pointer  to  val_record  structure 

val:  file  descriptor  for  "val"  file  for  fieldname 

wrong:  flag  = 1 if  value  is  illegal  (i.e.,  wrong) 

*/ 

int  get_set(f ield_name,  fvalue)  char  *field_name,  *fvalue; 

< 

/*  Declaration  of  variables  */ 
char  filename [ 5 0] , *p; 

int  bf[100],  hash_num,  list,  *r,  seek_locat ion , val,  wrong; 
struct  val_record  v; 

/*  Open  the  ".val"  file  for  this  field  */ 

p = concat ("/cerl/celds/" , f ield_name , f i lename) ; 
concat(".val","",p) ; 
val  « open(filename,0) ; 

if  (val  < 0)  { perror("getst") ; return(val) ; ) 

/*  Calculate  hash  number  for  this  value  */ 

hash_num  “ hash(  fvalue)  7 max_hash_num ; 

if  (debugging)  printf ("hashes  to  7d\n" ,hash_num) ; 

/*  Seek  to  proper  slot  in  hash  table  — each  hash_num  takes  2 bytes  */ 
seek_location  = hash_num  * 2; 
seek(val,seek_location,0) ; 
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0 

^include  "search. i" 

/*  FACTOR 

Factor  is  the  routine  used  for  doing  "ands".  It  is  the 
highest  order  in  the  hierarcy,  i.e.  it  gets  done  before  "ors"  or 
"excepts"  regardless  of  which  is  on  the  line  first. 

Returns  fil  file  descriptor  to  an  open  file 

containing  the  result 


Factor  variables: 

fil:  file  descriptor 

second:  file  descriptor 

*/ 

int  factorf) 

{ 

/*  Declaration  of  variables  */ 
int  fil,  second; 

/*  Call  primary  to  get  lawset  */ 
fil  = primaryO; 
if  (fil  < 0)  return(fil); 

while  (compar(word,"and")  ==  0 | I conpar( word, "intersect")  ==  0 || 
conpar(word,"&")  *=  0) 

( 

get_next_word("And  what?:"); 
second  - primaryO ; 
if  (second  < 0)  return( second) ; 
fil  * and( f il .second) ; 

> 

return( f il) ; 

> 
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# 

//include  "search. 1" 

/* 


GET  SET 


Get_aet  takes  a fieldname  and  value  for  that  field,  and  looks  to 
see  if  it  is  a legal  value.  Cet_set  returns  -1  for  illegal  value, 
or  a file  descriptor  to  an  open  file  if  the  value  is  included  in 
that  field. 

The  "list"  file  is  positioned  at  the  start  of  the  lawlist 


for  that  field 

value. 

Arguments 

f ieldname 

three  character  name  of 

a field 

fvalue 

a value  to  be  looked  up 
f ield 

in  that 

Returns 

-1 

for  illegal  values 

fid 

to  an  open  "list"  file 

Get_set  variables: 
bf: 

f ilenane : 
hash_num : 
list : 

P = 
r: 

seek__location : 
v: 

val : 
wrong: 

*/ 


buffer  used  for  reading 

name  of  file  to  be  opened 

hash  number  for  fvalue 

file  identifier  for  list  file 

pointer  used  to  build  filenames 

pointer  to  record  read  from  hash  table 

location  to  seek  to 

pointer  to  val_record  structure 

file  descriptor  for  "val"  file  for  fieldname 

flag  = 1 if  value  is  illegal  (i.e.,  wrong) 


int  get_set ( f iel d_name , fvalue)  char  *field_name,  *fvalue; 

{ 

/*  Declaration  of  variables  */ 
char  filename [50] , *p; 

int  bf[100],  hash_num,  list,  *r,  seek_location , val,  wrong; 
struct  val_record  v; 


I*  Open  the  ".val"  file  for  this  field  */ 

p = concat ("/cerl/celds/" , f ield_name , f i lename) ; 
concat(".val","",p) ; 
val  * opcn(filename,0) ; 

if  (val  < 0)  { perrorC'getst")  ; return(val) ; > 


/*  Calculate  hash  number  for  this  value  */ 

hash_num  « hash(  fvalue)  7,  max_hash_num ; 

if  (debugging)  printf ("hashes  to  Zd\n" ,hash_num) ; 

/*  Seek  to  proper  slot  in  hash  table  — each  hash_num  takes  2 bytes  */ 
seek_location  = hash_num  * 2; 
seek (val ,seek_location ,0) ; 
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/*  Read  from  val  file  */ 
rend( val ,bf , 200) ; 

/*  Point  r to  beginning  of  record  read  */ 
r “ &bf [0] ; 

/*  Initialize  wrong  to  be  true  */ 
wrong  - 1 ; 


while  (*r) 

/*  If  *r  is  zero,  then  this  hash  number  contains  a zero  In  the  table  */ 

{ 

/*  Locate  record  with  this  hash  number  */ 

seek_locatlon  = ( ( * r * 64)  + val_table_start) ; 
seek(val,seek_location,0) ; 
read(val,&v,64) ; 

if  (debugging)  printf("try  Id :Is\n" ,*r,v«value) ; 

/*  Compare  fvalue  with  the  value  in  the  val  file  */ 
wrong  = compar(v .value, fvalue) ; 

/*  If  wrong  is  zero,  we  found  fvalue  */ 
if  (wrong  »=  0)  break; 


r++; 

> 

/*  Close  the  "val"  file  */ 
close(val) ; 

if  (wrong  ! ■ 0) 

/*  Then  fvalue  was  not  found  in  the  val  file  */ 

{ 

printf ("searching  field  Is  for  Is\n" , f ield_name , fva lue) ; 
reject_this_word("not  a legal  value"); 
return(-l ) ; 

> 


/*  Calculate  location  in  "list"  file  */ 
seek_location  = v. first  law  * 2; 


/*  Open  ".list"  file  for  this  field  */ 
concat(".list","",p) ; 
list  * open( f ilename ,0) ; 

if  (list  < 0)  {perror("getst(oli)") ; return( 1 1st) ; > 


/*  Position  list  file  at  start  of  laws  list  */ 
seck(list,seek_locatlon,0) ; 

if  (debugging)  printf ("get_set  opens  *d\n",list); 


return( list) ; 

> 
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if 

/^include  "search.!" 

/*  GF.  T_NEXT_WORI) 

Get_next_word  is  the  scanner  for  GELDS.  The  argument  is 
a prompt  to  give  in  case  the  client  has  not  yet  supplied  this  word. 

A special  case  is  the  nul  prompt,  which  means  the  caller  only  wants 
the  next  word  if  it  has  already  been  supplied. 

Global  variables  that  may  be  changed  are: 

word:  array  containing  current  word  (nul  terminated) 

request:  array  containing  current  line  of  user  input 

req_location:  a pointer  into  current  position  in  request 

old_req_location : previous  req_location 

Get_next_wo rd  recognizes  punctuation  and  returns  punctuation 
marks  as  a word. 

Arguments  prompt  pointer  to  a prompt 

Returns:  0 

1 

2 if  word  is  a punctuation  mark 

Get_next_wo rd  variables: 

eof:  flag  indicating  if  user  has  typed  an  end-of-file 

w:  pointer  to  the  "word"  array 

*/ 

int  get_next_wo  rd(pronpt)  char  *prompt; 

{ 

/*  Declaration  of  variables  */ 
char  *w; 
int  eof; 

/*  Skip  over  any  leading  blanks  */ 

while  (*req_location++  »=  ' '); 

— re<\_location; 

if  (*req_location  ==*  0) 

/*  Then  this  is  the  end  of  the  line  */ 

{ 

do  { 

if  (*pronpt  -»  0) 

/*  This  is  the  special  case  of  a nul  prompt  */ 

{ 

wo  rd [ 0 ] « 0; 
return(O) ; 

> 

/*  Write  out  prompt  */ 

printf ("%s" .prompt) ; 
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# 

//include  "search. i" 

/*  LISTER 

Lister  is  the  procedure  called  by  the  list  and  print  verbs  to 
list  the  contents  of  selected  laws;  it  only  lists  chosen  fields. 

Arguments:  output_file  file  descriptor  of  output  file 

out_name  name  of  output_file 

if  name  is  non-zero,  listing  will 
be  sent  to  the  line  printer 

Returns:  -1  for  error  conditions 

+1  otherwise 

Lister  variables: 
bf : 

chars : 
chosen : 
flag: 


i ob  u f : 
field: 
laws : 

list : 

ma  rgin: 
ma rg_string: 

oldlawsf lie : 


p: 

sel : 

selected : 

toe : 

t ype_start : 

*/ 

int  l ister(output_f ile,out_name)  int  output_f ile;  char  *out  name; 

{ 

int  *aborter(); 

/*  Declaration  of  variables  */ 

int  chars,  chosen[14],  field,  laws,  list,  oldlawsfile,  *sel, 
selec ted [max_laws] , toe,  type_start { 1 3] ; 
char  bf 1 1 22]  , flag,  iobuf [550] , *margin,  ma rg_st ring [ 1 0] , *p; 


buffer  for  reading  and  writing 

number  of  characters  read 

array  indicating  which  fields  to  list 

used  to  indicate  when  all  of  a field  has 

been  listed.  This  is  set  to  the  last  digit 

of  the  field  being  listed. 

buffer  used  only  by  the  ggets  routines 

field  number 

file  descriptor  of  the  laws  file  from  which 

reading  is  taking  place 

file  descriptor  of  current_laws  file, 

the  file  containing  the  list  of  law  numbers 

pointer  to  "marg_string" 

string  which  is  printed  as  the  margin  for 
each  output  line.  Blanks  for  most  lines  but 
field  names  for  first  lines  of  fields, 
contains  numerical  portion  of  previous  "laws." 
file  name  (which  is  still  open).  This  is 
-1  if  there  is  no  open  "laws."  file, 
pointer  to  bf 
pointer  to  selected 

array  containing  law  numbers  of  laws  to  be  printed 
file  descriptor  of  "laws. toe"  file 
array  containing  the  "laws. toe"  record  for  the 
current  lav#  number 
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/*  Read  response  from  the  terminal  */ 
eof  - gets( request) ; 

if  (eof  -«  0) 

/*  Then  user  typed  a cntrl-d  */ 

< 

word[0]  = 0; 
reading_commands  - 0; 
retum(O) ; 

> 

/*  Reset  req_location  */ 

req_location  **  &request  [ f> ] ; 

/*  Get  rid  of  leading  blanks  */ 

while  (*req_location++  »=  ' '); 

— req_location ; 

if  (*req_location  ■*  '!') 

/*  Then  this  is  a UNIX  command  */ 

( 

req_location++; 
execute(  req__location) ; 

/*  Set  to  zero  so  we  loop  again  */ 
*req_location  - 0; 

> 

) while  ( *req_location  »»  0); 

> 

/*  Reset  old__req_location  */ 

old_req__location  » req_locat  ion ; 

/*  Check  for  punctuation  in  word  */ 
w = &wo  rd [0]  ; 

if  (punctuation[*req_location  & 0177] ) 

/*  Then  there  is  recognized  punctuation  */ 

{ 

*vH-+  = *req_location-H-; 

*w  - 0; 
retum(  2) ; 

> 

/*  Word  must  be  alphabetic,  so  copy  to  next  blank  or  punctuation  */ 
while  (punctuatlon(*req_location  & 0177]  =*«  0) 

» *req_location++; 

/*  Set  word[0]  to  zero  */ 

*w  » 0; 

return( 1 ) ; 

> 
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/*  Initialization  */ 

oldlawsf i le  » -1 ; 

for  (field  ■ 1;  field  < 14;  field++)  chosen [ f ield]  * 0; 

/*  Open  current  laws  file  */ 

list  « open("current_laws" ,0) ; 

if  (list  < 0)  { reject_this_word("no  laws  selected");  return(-l);} 

/*  Fill  in  selected  array  */ 

chars  = read( list, selected, lawset_size) ; 
close( list)  ; 

selected  [chars  / 2]  =»  19999; 
if  ( selected [0]  >-  19999) 

( 

reject_this_wo rd("no  laws  selected"); 
return(-l ) ; 

> 

/*  Call  get_next_wo rd  to  find  out  which  fields  to  list  */ 
get_next_wo  rd( "What  f ield ( s) ? :") ; 

while  (word[0]  !=  0) 

/*  We  still  have  more  fields  requested  on  this  line  of  input  */ 

{ 

if  (conpar(word,"all")  ==  0) 

{ 

for  (field  = 2;  field  <11;  field++)  chosen [ field]  = 1; 
get_next_word("") ; 
b reak; 

> 

if  (compar(word, "abort")  ==  0) 

{ 

reject_this_word("listing  aborted") ; 
return(-l ) ; 

> 

field  = xlate_f ield(word) ; 

if  (field  < 0)  { reject_this_word("not  a field  name");  return(-l);} 
/*  Fill  in  the  chosen  array  for  requested  fields,  except 
if  keywords  are  requested,  show  topics  */ 
if  (field  !«  13)  chosen [ f ield]  * 1; 
else  chosen [12]  = 1 ; 

get_next_word("") ; 

/*  Check  for  optional  syntax  */ 

if  (compar(word," ,")  ==•  0)  get_next_wo  rd("Next  field?:"); 
if  ( conpar( wo  rd ,"and")  ==  0)  get  next  word("Next  field?:"); 
> ~ 

/*  If  this  is  a print  batch  it  off  */ 
if  (*out_name) 

/*  Out_name  will  have  a value  of  zero  for  the  terminal  */ 
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< 

if  (fork()  !«  0)  return(l); 

> 


else 

/*  Set  a trap  for  interrupt  */ 
signal (2 .aborter) ; 

/*  Open  table  of  contents  (toe)  file  */ 

toe  - open("/cerl/celds/laws.toc",0) ; 
if  (toe  < 0) 

{ 

perror("lister(otoc)") ; 
if  (*out_name)  exitO; 
else  return(-l); 

> 

sel  » ^selected [0]  ; 
while  ( *sel  < 19999) 

/*  While  there  are  still  law  numbers  left  */ 

{ 

/*  Put  two  newlines  at  beginning  of  bf  */ 
p = &bf 10] ; 

*p++  * 012; 

*p++  = 012; 

/*  Put  "law"  number,  and  another  newline  into  bf  */ 
p - concatC'law  ",locv(0,*sel) ,p) ; 

*p++  - 012; 

write(output_f  ile.bf ,(p  - &b f [0 ] ) ) ; 

/*  Locate  appropriate  record  in  toe  file  */ 
lseek( toe, (*sel  * 26.0)); 
chars  - read( toe , type_start , 26) ; 
if  (chars  < 0) 

{ 

perror("lister( rlw)") ; 
close(toc); 

if  (oldlawsfile  !*  -1)  close(laws); 
break; 

> 

if  ( type_start 10]  !»  oldlawsfile) 

/*  Then  we  need  to  open  a new  "laws."  file  */ 

{ 

if  (oldlawsfile  !»  -1)  close(laws); 
concat("/cerl/celds/laws.",locv(0,type_start [0] ) ,bf ) ; 
laws  » gopen(bf ,&iobuf) ; 

if  (laws  < 0)  {perror("lister") ; close(toc);  break;) 
oldlawsfile  * type_start (0] ; 

> 
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for  (field  = 1;  field  < 13;  field++) 

{ 

if  (chosenff ield] ) 

/*  Then  field  has  been  requested  */ 

{ 

/*  Construct  margin  *1 

margin  « &ma  rg_s  t ri  np,  [0]  ; 

cone at ( f ld_name (field] " ,ma  rRin) ; 

gseek(&iobuf ,type_start [field] ) ; 
chars  = ggets(bf ,&iobuf ) ; 
flap;  - bf  [7]  ; 

while  (flag  = = b f [ 7 ] &&  chars  > 0) 

( 

p * concat(ma rgin.&bf [10] ,bf) ; 
margir  = " 

*p++  = 012; 

wr ite(output_f  ile,bf , ( p - &bf[0])>; 
if  ( read ing_conmands  !=  1) 

/*  Then  aborter  was  called  */ 

< 

close( toe) ; 
close( laws) ; 

printf ("\n\n\nlisting  aborted\n") ; 
return(-l ) ; 

> 

chars  * ggets(bf ,&iobuf) ; 

> 

> 

> 

sel++; 

> 

I*  Write  four  newlines  between  laws  */ 
p - &bf  [0]  ; 

*p++  =012; 

*p++  =012; 

*p++  = 012; 

*p++  = 012; 

write (out put_f  lie ,bf , 4) ; 

/*  Close  files  */ 

close( toe) ; 
close( laws) ; 

/*  This  code  is  only  for  the  child  process  (print).  C.ive  the 
listing  to  the  lineprinter  (lpr)  and  exit.  */ 
if  (*out_name) 

/*  Then  this  is  the  child  */ 

( 

ciose(output_f ile) ; 
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//include  "search.  1" 
/* 


0 R 


Or  takes  two  lists  of  law  numbers  and  logically  "ors" 
the  two  into  a third  list,  i.e.  it  make  a composite  list  of  laws 


occurring  in  either  list 

• 

Arguments 

first 

file  descriptor  of  file  containing 
first  list  of  law  numbers 

second 

file  descriptor  of  file  containing 
second  list  of  law  numbers 

Returns 

fil 

file  descriptor  of  file  containing 
the  "ored"  list 

Or  variables: 

' 

bfl: 

buffer  for  first  list 

bf  2 : 

buffer  for  second  list 

chars: 

number  characters  written  into  result 

chars  1 : 

number  characters  read  into  bfl 

chars2: 

number  characters  read  into  bf2 

fil: 

file  descriptor  of  resultant  list 

r : 

pointer  to  result 

result : 

buffer  for  resultant  list 

s : 

pointer  to  bfl 

t: 

*1 

pointer  to  bf2 

int  or( f irst, second)  int  f i rst , second ; 

/*  Declaration  of  variables  */ 

{ 

int  bf 1 [max_laws] , bf 2 [max_laws] , chars,  charsl,  chars2,  fi 
result (2  * max_lawsl ; 
register  int  *r,*s,*t; 

/*  Fill  bfl  and  bf2  with  lawsets  */ 

charsl  « read( f irs t ,bf 1 , lawset_size) ; 
chars2  = read(second,bf2,lawset_slze) ; 

/*  Guarantee  that  there  is  a 19999  at  end  (paranoia)  */ 
bfl (charsl  / 2]  - 19999; 
bf 2 [cha rs2  / 2]  - 19999; 

/*  Set  up  pointers  */ 
r = bf  1 ; 
s = bf 2 ; 
t « &result [0] ; 

/*  Since  t gets  p re- incremented  the  first  one  will  be  skipped  */ 

*t  = 0; 
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do  { 

if  (* r < *s)  *++t  - *N-+; 
else 

{ 

if  ( *r  --  *8)  r-M-; 

*++t  - *s++; 

> 

> while  (*t  < 19999); 

/*  Calculate  the  number  of  characters  in  result  */ 
chars  = (t  - &result[01)  « 1; 

if  (chars  > lawset_size) 

/*  Then  our  lawset  is  too  big  for  the  buffers  in  CELDS  */ 

( 

printf  ("lawset  exceeds  2!d  laws\n" , (max_laws  - 1)); 
printf("only  the  first  %d  laws  will  be  used\ n" , (max_laws  - 1)); 
t - &result [max_laws] ; 

*t  - 19999; 

chars  .«  lawset_size; 

> 

/*  Create  fil  to  write  result  into  */ 

fil  = creat( temp_f  ile_name ,0666) ; 

if  (debugging)  printf ("or  creating  %s\n" ,temp_f  ile_name) ; 
if  (fil  < 0)  {perror("bool(c)") ; return(-l);} 

/*  Write  result  beginning  with  result [1]  since  [0]  is  skipped  */ 
write( f il ,& result [1 1 , chars) ; 

/*  Position  fil  at  beginning  of  file  (by  closing  and  opening)  */ 
close( fil)  ; 

fil  * open(  temp_f  ile__name  ,0)  ; 

if  (debugging)  printf  ("or  Zd  with  7,d  giving  %d  (%d  laws)\n", 
f irst .second , f il ,( t - &result [1 ) ) ) ; 

/*  Increment  temp_f ile_name  since  we  just  made  a file  */ 
temp_f  ile_n<-une  (101  *+  l; 

/*  Close  first  and  second  files  */ 
close( first) ; 
close (second)  ; 

return( f il) ; 

> 
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i? 

/(include  "search.!" 
/* 


PRIMARY 


Primary  finds  the  lowest  order  terms  in  expressions  for 
commands.  This  is  the  "value"  of  the  field  requested.  Primary 
returns  -1  on  various  error  conditions.  Otherwise  it  creates  a file 
containing  the  set  of  laws  with  the  specified  value. 

Returns  fil  file  descriptor  of  an  open  file 

containing  the  set  of  laws  with  the 
current  value 

-1  on  error  conditions 


Primary  variables: 

content : 

array  used  to  put  an  accession  number  in  to 
write  to  a file 

delim : 

delimiter  for  values,  either  a nul  or  a 
double  quote  mark  depending  on  whether  a 
quote  has  been  encountered 

fil: 

fil  descriptor  of  current  lawset 

fid: 

flag  indicating  whether  a field  is  being  searched 

fid  nun : 

field  nunber 

P = 

pointer 

q: 

pointe  r 

st: 

indicates  if  a set  name  is  being  searched 

value: 

array  containing  the  current  value 

*/ 

int  primaryO 

{ 

/♦Declaration  of  variables  */ 

int  content[2],  fil,  fid,  fld_ntin,  st; 
char  delim,  *p,  *q,  value[62]; 


/*  Check  for  ordering  by  parenthesis  */ 
if  (compar(word,"(")  ==  0) 

{ 

get_next_word("Search  criterion:") ; 
fil  = expression( ) ; 
if  (compar(word,")")  *==  0) 

{ 

get_next_wo rd("") ; 
return( f il) ; 

> 

reject_this_word("right  paren  expected"); 
return(-l ) ; 


fid  = 0; 

/*  Remove  optional  text  in  command  structure  */ 
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0) 


if  (compar(word>"all")  « = 

{ 

get_next_word("Field  nano? :") ; 
fid  = 1 ; 

> 

if  (conpar(word,"laws")  »»  0) 

< 

get_next_word("Fiel d name?:"); 

fid  **  1 ; 

> 

if  (compar( word, "with")  ==  n) 

{ 

get_next_word( "Field  name?:"); 
fid  - 1; 

> 

if  (compar(word,"whe  re")  ==0) 

{ 

get_next_word( "Field  name?:") ; 
fid  = 1; 

> 

/*  Translate  field  name  to  a number  */ 
fld_num  = xlate_f ield(word) ; 

if  ( f ield_is_searchable [ f 1 d nun)  ) 

/*  Then  this  is  a searchable  field  */ 

{ 

get_next_word("What  value?:"); 

if  (conpar(word,"is")  ==  0)  get  next  word("l-7hat  value?:") 
if  (*word  ==  '"') 

/*  Then  there  is  a term  in  quotes  */ 

{ 

/*  Skip  past  quote  mark  */ 
old_req_loca  tion-H-; 

/*  Set  delimiter  to  look  for  other  quote  */ 
delim  = 

request [121]  = 

> 

else  delim  = 0; 

/*  Copy  word  into  value  until  delim  */ 
p * &value  [()]  ; 
q = old_req_location ; 

while  (*q  !=  delim)  *p-H-  = *q++; 

if  (q  > ^request [ 1 20] ) 

/*  Then  we  never  found  the  delimiter  */ 

{ 

reject this_word(  closing  quote  mark  missing"); 
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return(-l ) ; 

> 


*P  = 0; 

if  (*q  !=  0)  q++; 
req_location  * q; 
old__req_location  » q; 
get_next_wo  rd("")  ; 
if  (fld_nun  =■=  1) 

/*  Then  search  was  for  accession  number  */ 

{ 

/*  Convert  accession  number  to  integer  */ 
content[0]  » atoi(value); 

/*  put  in  a test  here  to  see  if  acc  nun  is  legal  */ 

/*  Create  temp_file  */ 

fil  - creat( temp_f  ile_name,0hbf>) ; 

if  (fil  < 0)  (perrorC'getacc") ; return( f il) ; > 

content[l]  - 19999; 
write ( fil .content ,4) ; 

/*  Position  fil  at  beginning  of  file  */ 
close( f il) ; 

fil  - open( temp_f ile_name ,0) ; 

/*  Increment  temp_f ile_name  */ 
temp_f  ile_name [10]++; 

return( f il) ; 

> 

if  (compar(value, "abort")  »»  0) 

{ 

rejcct_this_word("search  aborted") ; 
retum(-l) ; 

> 

/*  Get  the  set  of  laws  for  this  field  and  value  */ 
fil  = get_set( fld_name [ fld_nun] .value) ; 

retum( f il)  ; 

> 

if  ( f 1 d_nun  > 0 ) 

{ 

reject_this_word("f ield  is  not  a searchable  field"); 
retum(-l) ; 

> 

if  (conpar(word, "abort")  -■  0) 

{ 


I 1 
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rejec.t_this_word("search  aborted'")  ; 
return(-l) ; 

> 

if  (fid) 

{ 

reject_this_word("f ield  name  expected"); 
return(-l ) ; 

> 

/*  If  we  have  reached  this  point,  then  it  must  be  a setname  */ 
st  = 0; 

/*  Remove  optional  text  */ 

if  (compar(word,"my"  ==*  0)) 

( 

get_next_word("Lawset  name?:") ; 
st  = 1 ; 

> 

if  (compar( word, "set"  « 0)) 

( 

get_next_word("Lawset  name:"); 
st  = 1 ; 

> 

if  (conpar( word, "set")  ==  0)  (get_next_word("Lawset  name?:");  st  = 1;> 

if  (compar( word, "abort")  ==  0) 

{ 

reject_this_word("search  aborted") ; 
return(-l ) ; 

> 

/*  File  will  have  an  arbitray  precedinR  the  name  */ 

concat("__", word, value) ; 
fil  = open(value ,0) ; 

if  (fil  < 0) 

/*  Then  this  file  does  not  exist  */ 
if  (st  « 0) 

reject_this_wo rd("Neithe r a lavset  name  nor  a field  name"); 
else  reject_this_word("no  set  by  that  name"); 

Ret_next_word("")  ; 

return( f il) ; 

> 


^include  "search.!" 
/* 


REJECT  THIS  WORD 


Reject_this_word  is  the  CF.LDS  error  processing  routine. 
Arguments  e rror_message  pointer  to  message  to  be  printed 

Clobals: 

req_location:  pointer  to  current  position  in  request 

word:  array  containing  the  current  word 

Reject__this_word  variables: 

error_message:  pointer  to  message  to  be  printed 

*/ 

int  reject_this_word(error_message)  char  *error  message; 

< 

printf ("ERROR:  %s  - %s\n" .word ,error_message) ; 

/*  Reset  global  indicators  */ 

*req_location  - 0; 
word[0]  » 0; 

> 
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# 

/•include  "search. i" 

/*  S H 0 U 

Show  writes  the  accession  numbers  of  "current  laws"  on 
the  terminal,  ten  to  a line. 

Returns:  -1  for  error  conditions  (no  laws  selected). 

0 otherwise 

Show  variables: 

bf:  buffer  used  for  reading 

chars:  number  of  characters  read 

fil:  file  descriptor  of  current_laws 

i:  counter 

*r:  pointer  to  bf 

*/ 

int  show() 

{ 

int  *aborter  (); 

/*  Declaration  of  variables  */ 

int  bf [max_laws] , chars,  fil,  i,  *r; 

/*  Open  current_laws  file  */ 

fil  = open("current_laws" ,0) ; 
if  (fil  < 0) 

{ 

reject_this_word("no  laws  selected"); 
return(-l ) ; 

> 

/*  Read  file  into  bf  */ 

chars  » read( f il ,bf ,lawset_size) ; 

c lose( f il) ; 

/*  Every  two  bytes  is  an  integer  number.  Put  a 19999  at  end.  */ 
bf[chars  / 2]  = 19999; 
if  (bf  [0]  >=  19999) 

{ 

reject_this_wo rd("no  laws  selected"); 
return(-l ) ; 


r = &bf [0] ; 

/*  Set  trap  for  interrupt  signal  */ 
signal(2,aborter) ; 

while  (*r  < 19999) 

/*  Write  out  list,  ten  to  a line  */ 

{ 
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for  (i  - 0;  i < 9 ; i++) 

{ 

if  (*r  >“  19999)  break; 
printf ("5!5d  ”,*r-H-)  ; 

} 

printf ("\n") ; 

/*  Check  to  see  if  shorter  was  called  ( reading_commands  ■ 2) 
if  ( reading_commands  !«  1)  return(-l); 

> 

/*  Prepare  next  "word"  for  celds  */ 
get_next_word("") ; 

/*  Throw  away  optional  words  on  "show"  command  */ 

if  (compar( word, "the")  *=■  0)  get_next_wo rd( "") ; 
if  (compar( wo rd," laws")  ==>  0)  get_next_wo rd( ; 
return(O) ; 

> 
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# 

^include  "search. i" 
/* 


TERM 


Tern  is  the  routine  for  evaluating  "excepts",  it  cones 
second  in  the  hierarchy.  "Ands"  are  evaluated  first,  "excepts" 
second,  and  "ors"  last. 

Returns  fil 

Term  variables: 
fil: 
second : 

*/ 

int  term() 

{ 

/*  Declaration  of  variables  */ 
int  fil,  second; 

fil  « factorO; 
if  (fil  < 0)  return(fil); 

while  (conpar(word, "except")  =>=  0) 

{ 

get_next_word("Except  what? :”) ; 
second  = factorO; 
if  (second  < 0)  return( second) ; 
fil  = except( fil .second) ; 

} 

return( f il) ; 

> 


file  descriptor  of  result  file 

file  descriptor 
file  descriptor 
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/» 

^include  "search. i" 
/* 


XLATE  FIELD 


Xlate_fleld  translates  a fleld_name  to  a fld_num,  and  returns 
the  fld_num.  If  the  fleld_name  is  not  the  name  of  a legal  field, 
then  -1  is  returned. 

For  matching  a field  to  a number,  only  the  first  three 
characters  of  field  name  are  used. 


Arguments:  field_name 

Returns:  -1 

f ieldnum 

Globals:  (see  globals 

Xlate_field  variables: 
f ld_num : 

P = 

short_fname [4] : 

*/ 


name  of  field 

if  not  a legal  field 
for  recognized  fields 

for  "expr.c") 
field  number 

first  3 characters  of  field  name 


int  xlate_f ield( f ield_name)  char  *field_name; 

{ 

/*  Declaration  of  variables  */ 

char  *p,  short_f name [4] ; 
int  fld_num; 

/*  Put  first  3 characters  of  field_name  into  short_fname  */ 
p « &sho rt_fname [0] ; 

*p++  = *f ield_name++; 

*p+-+  = *f  ield_name++; 

*p++  = *field_name; 

*p  = 0; 

for  (fld_num  = 1;  fld_nun  < 14;  fid_num++) 

if  (compar( f ld_name [ f ld_num] ,short_fname)  »=  D)  return( f ld_num 

return(-l ) ; 

> 
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Coropar  compares  two  strings  and  determines  if  they  are  the  same. 

Arguments:  si  pointer  to  string  one 

s2  pointer  to  string  two 

Returns:  0 if  strings  are  the  same 

If  string  one  is  "bigger" 

+ if  string  two  is  "bigger" 

Compar  variables: 

greater: 
p: 

q: 

*/ 

int  conpar(sl ,s2)  char*sl,*s2; 

{ 

/*  Declaration  of  variables  */ 
register  char  *p,*q; 
register  int  greater; 

P “ si ; 
q “ s2; 

while  ((greater  - *p  - *q++)  ==  0 &&  *p++  1=  0); 
return  (greater); 

> 


algebraic  difference  of  chars  in  si  - s2 
pointer  to  si 
pointer  to  s2 


*» 


/*  C 0 N C A T 


Concat 

concatenates 

two  strings 

and  returns  the  composite 

string. 

Arguments: 

first 

pointer  to 

first  string 

second 

pointer  to 

second  string 

result 

pointer  to 

end  of  resulting  string 

Returns:  pointer  to  end  of  result  string 

*/ 

char  *concat(f irst,  second,  result)  char  *first,  *second,  *result; 

{ 

/*  Put  first  string  into  result  string  */ 
while  (*result++  = *first++); 

/*  Back  up  over  nul  */ 

— result ; 

/*  Put  second  string  into  result  */ 

while  (*result++  « *second++); 

/*  Back  up  over  nul  */ 

— result ; 


return( result) ; 

) 


M 


char  *gnextp; 
char  *gstop; 
int  geof; 
char  gdhuf [513]  ; 

>; 

int  ggets(bf ,stru)  char  *bf;  struct  gstru  *stru; 

{ 

/*  Declaration  of  variables  */ 

int  ch,  chars,  more_to_read; 
register  char  *p,  *q; 

/*  Point  q to  the  start  of  bf  */ 
q = bf; 

/*  Continue  this  as  long  as  no  new-line  has  been  found,  other 
than  the  artificial  one  at  gdbuf[512]  */ 
do  { 

/*  Reset  new-line  flag  */ 
more_to_read  = 0; 

/*  point  p to  next  character  to  be  read  */ 
p » st ru->gnext p; 

/*  copy  next  line  into  the  callers  buffer,  bf  */ 
while  (*p  !*=  012)  *q++  = *rrH-; 

/*  Now,  adjust  gnextp  to  point  at  next  character  to  be  read  */ 
stru->gnextp  = p + 1 ; 

if  (p  >=  st ru->gstop) 

/*  Then  we  need  to  read  into  the  next  block  */ 

{ 

/*  Turn  on  no  new-line  indicator  */ 
more_to_read  = 1; 

/*  Check  for  end-of-flle  */ 

if  (stru->geof)  {bf[0]  = 0;  return(O);} 

/*  Point  gnextp  to  beginning  of  gdbuf  */ 
stru->gnextp  * &stru->gdbuf [0] ; 

/*  Read  next  block  from  file  to  gdbuf  */ 

ch  » read(stru->gfildes,stru->gdbuf,512) ; 

if  (ch  < 0) 

/*  Then  we  can't  read  a block  and  haven't  yet 
encountered  a new-line  */ 

( 

perror("ggets(read)") ; 


i 
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G GETS 


/* 


The  gopen,  ggets,  and  gseek  routines  are  an  alternative  way  to 
read  ASCII  files.  They  are  designed  primarily  for  sequential  line- 
oriented  reading,  with  some  seeks.  The  only  seeks  allowed  are  absolute 
character  number  (ptrname  » 0). 

A core  buffer  (gdbuf)  Is  filled  by  the  gopen  routine  with  one 
block  of  data  from  a file.  When  ggets  is  called,  data  Is  transferred 
from  gdbuf  to  the  caller's  buffer  ( b f > until  a new-line  is  encountered. 
If  no  new-line  is  encountered  by  the  end  of  the  block,  the  next  block 
of  data  is  read  from  the  file  into  gdbuf  and  the  transfer  continues. 

To  use  ggets  with  a file,  the  file  must  be  opened  with  gopen 
and  seeks  should  be  performed  using  gseek. 


Globals:  (for  ggets,  gopen,  and  gseek) 

gstru:  This  is  a structure  which  is  used  for  reading  lines 
from  a file.  Its  components  are: 

gdbuf  — a buffer  holding  one  block  of 

data . 

geof  — 0 until  last  block  is  read, 

1 when  gdbuf  contains  last  block 
gfildes  — file  descriptor 

gnextp  — a pointer  to  the  next  character 

to  be  read  from  gdbuf 

gstop  — a pointer  to  the  next  critical 

character,  signaling  when  to 
read  a new  block.  After  eof, 
this  points  to  the  last 
character  of  data. 


Arguments : 


bf : 


stru: 


a pointer  to  the  caller's  buffer  into  which 
the  next  line  of  data  should  be  read 
a pointer  to  the  structure  (array)  of  shape 
gstru  which  contains  file  descriptor,  etc. 


Returns: 


the  number  of  characters  read  into  bf 


Ggets  variables: 

ch:  number  of  characters  read  from  file  to  gdbuf 

chars:  number  of  characters  read  into  bf 

more_to_read : flag  indicating  if  read  continues  into  the 

next  block 

p:  a pointer  into  the  core  buffer,  gdbuf 

q:  a pointer  into  the  caller's  buffer,  bf 

Returns: 

*/ 

struct  gstru 

{ 

int  gfildes; 
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GOPEN 


/* 

Gopen  opens  a file  and  reads  the  first  block  of  data  into  a 
core  buffer,  and  sets  up  goof,  gnextp,  and  gstop.  The  file  is  opened 
for  reading  only. 

Clobals:  see  list  for  ggets 

(gopen  should  only  be  used  when  using  ggets.) 

Argunents:  fname  name  of  the  file  to  be  opened 

stru  pointer  to  a structure  of  shape  gstru 
which  will  contain  the  core  buffer  and 
parameters  for  this  file 

Returns:  the  file  descriptor  of  the  file  opened 

Gopen  variables: 

ch:  number  of  characters  read  fron  file  to  gdbuf 

*/ 

int  gopen ( f name, stru)  char  *fname;  struct  gstru  *stru; 

< 

/*  Declaration  of  variables  */ 
int  ch; 

/*  Open  file,  mode  0 */ 

stru->gf tides  “ open( fname ,0) ; 
if  ( st ru->gf i Ides  < 0) 

{ 

perror(" gopen") ; 

return( stru->gf ildes) ; . . 

> 

/*  Read  first  block  from  file  into  gdbuf  */ 

ch  = read(stru->gfildes,&stru->gdbuf  [0]  ,512) ; 
if  (ch  < 0)  {perror("gopen( read)") ; returnf ch) ; } 

/*  Set  up  stop,  nextp,  and  eof  */ 

stru->gstop  = 5>stru->gdbuf  [512]  ; 
stru->gnextp  = &stru->gdhuf [0] ; 
stru->geof  * 0; 

if  (ch  < 512) 

/*  Then  this  is  the  last  (and  only)  block  */ 

{ 

stru->geof  = 1; 

stru->gstop  = &stru->gdbuf [ch] ; 

*stru->gstop  “ 012; 


/*  Put  in  the  terminating  new-line  */ 
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stru->geof  - 1; 

*st ru->gnoxtp  - 012; 
stru->gstop  » st ru->pnoxtp; 
bf  [0]  - 0; 
return(O) ; 

> 

if  (ch  < 512) 

/*  Then  this  must  be  the  last  block  */ 

< 

stru->geof  * 1; 

stru->gstop  « &stru->gdbuf [ch] ; 

*stru->gstop  » 012; 

> 

/*  make  absolutely  sure  there  is  a newline  to  find  */ 
stru->gdbuf [512]  - 012; 

> 

) while(more_to_read) ; 

/*  Put  nul  at  end  of  bf  */ 

*q++  - 0; 

/*  Calculate  characters  transferred  to  bf  */ 
chars  =*  q - bf; 

return(chars) ; 

} 


stru->gdbuf [512]  - 012; 


retti  rn(  st  ru->gf  ilrles) ; 


C S E R K 


Gseek  seeks  an  absolute  character  nunber  In  a file  opened 
by  gopen,  fills  gdbuf  , and  adjusts  nextp,  stop,  and  eof  accordingly. 

Clobals:  see  list  for  gRets 

(gseek  should  only  be  used  when  using  gRets.) 

Arguments:  offset  character  number  desired 

stru  pointer  to  a structure  of  shape  gstru 
which  will  contain  the  core  buffer  and 
parameters  for  this  file 

Returns:  1 if  seek  was  successful 

error  code,  otherwise 

(’.open  variables: 

ch:  nunber  of  characters  read  from  file  to  gdbuf 

*/ 

a 

int  gseek(stru,of fset)  struct  gstru  *stru;  int  offset; 

{ 

/*  Declaration  of  variables  */ 
int  ch; 

/*  Seek  to  offset  */ 

ch  = seek(st ru->gf ildes,of fset ,0) ; 

if  (ch  < 0)  (perror("gseek(seek)") ; return(ch);} 

/*  Read  block  of  data  into  gdbuf  */ 

ch  = read(stru->gf ildes ,&st ru->gdbuf [0] ,512) ; 
if  (ch  < 0)  (perror("gseek( read)") ; return(ch);} 

/*  Set  up  stop,  nextp,  and  eof  */ 

stru->gstop  = &strti->gdbuf  [512]  ; 
stru->gnextp  = &stru->gdbuf (0] ; 
stru->geof  » 0; 

if  (ch  < 512) 

/*  Then  this  is  the  last  block  */ 

{ 

stru->geof  - 1; 

stru->gstop  = 6rstru->gdbuf  [ch]  ; 

*stru->gstop  = 012; 

> 

/*  Put  in  the  terminating  new-line  */ 
stru->gdbuf [5 1 21  • 012; 

retum(  1 ) ; 

> 
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Hash  encrypts  a string  into  a single  integer  number 
Arguments:  str  pointer  to  string  to  be  encrypted 

Returns:  encrypted  integer  number 

Hash  variables: 

total:  running  total  for  additions  in  encryption 

*/ 

int  hash(str)  char  *str; 

{ 

/*  Declaration  of  variables  */ 
register  int  total; 

/*  Initialize  total  */ 
total  = 0; 

/*  Add  up  words  as  integer  numbers  */ 
while  (*str)  total  =+  *str++; 

return( total) ; 

} 
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1.  S K E K 


/* 

Lseek  seeks  an  absolute  character  number  In  a file.  The  number 
may  be  greater  than  65535. 

Arguments:  fll  — Integer  file  descriptor 

dcharnum — double,  character  number  sought 

Returns:  1 1 f no  block  seek  performed 

2 if  block  seek  performed 

Lseek  variables: 

block:  block  number  of  desired  character  number 
dcharnum:  desired  character  number  (double) 

fil:  file  descriptor 

plus:  position  of  desired  character  number  in  its  block 

seeker:  desired  character  number  (long) 

*/ 

int  1 soek(  f 11  ,dcha  mum)  Int  fll;  double  dcharnum;  { 

/*  Declaration  of  variables  */ 

Int  block,  plus; 
long  seeker; 

/*  convert  dcharnum  to  long  */ 
seeker  = dcharnum; 


If  (dcharnum  < 65535. D) 

/*  Then  we  don't  need  a block  seek  */ 

{ 

plus  = seeker; 
seek( fil ,plus,0) ; 
return(  1 ) ; 


else 

/*  A block  is  sought  first  */ 

{ 

block  = seeker  / 512; 
plus  = seeker  7,  512; 
seek( f il .block,  3) ; 
seek( fil .plus, 1 ) ; 
return(2) ; 

> 

) 


M 0 V R 


Move  moves  a specified  number  of  characters  from  one  location 
to  another. 


Arguments:  count  number  of  characters  to  be  moved 

from  pointer  to  string  to  be  moved 

to  pointer  to  receiving  location 

Va  riab les : 

i:  counter 

*/ 

int  move( f rom, to, count)  char  *from,  *to;  int  count; 

/*  Declaration  of  variables  */ 
int  i; 

for  (i  = 0;  i < count;  i++)  *to++  * *from++; 
return ; 

} 


SEARCH  . I 


/* 

Search. t is  the  include  file  of  structures  and  defines  used  to 
access  the  search  file  x.val. 

The  value  file  contains  the  nanes  of  all  of  the  values  for  a 
Riven  field  and  a hast)  table  for  quick  access  to  those  names.  The 
numbers  of  the  laws  that  belong  in  n Riven  set  are  found  in  a separate 
file  named  x.list  (where  x is  the  field  name). 

The  value  file  starts  with  the  hash  table  for  max_hash_num  + 10 

words.  The  hash  table  contains  1 word  per  hash  number,  either  0 or  the 
value_number  of  a value  that  hashes  lie  re.  If  a slot  is  full,  and  the 
value  is  different  from  the  value  to  be  inserted,  the  hash_nunber  is 
simply  incremented  by  one.  This  kind  of  hash  table,  while  exceedingly 
simple  to  build,  tends  to  get  cluttered  when  it  is  over  60?  full.  For 
this  reason,  max_hash_num  is  chosen  to  be  a large  number. 

Each  set  has  a value  number  greater  than  0.  The  next  N records 
(one  per  set)  are  64  characters  long.  Each  record  contains  62 
characters  for  the  set  name,  and  an  integer  telling  where  in  the  list 
file  the  laws  list  for  that  set  starts. 

The  list  file  is  simply  lists  of  law  numbers  terminated  by 

19990. 

*/ 

"define  hash_size  4011 
/'define  lawset_size  3000 
''define  max_hash_num  4001 
/'define  max_laws  1501 
/'define  val  table  start  7958 
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